(define seq "ACCATTGCAATATAGA") (format "~(\\n?)" (string->list seq)) -> A\n?C\n?C\n?A\n?T\n?T\n?G\n?C\n?A\n?A\n?T\n?A\n?T\n?A\n?G\n?A