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