let fastqc fq =     fwd (Input.fastqc (bwd fq))