let flagstat bam =     fwd (Input.flagstat (bwd bam))