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