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