: parse-lines ( lines -- quot )
    dup length 0 > [ dup first "#!" head? [ 1 tail ] when ] when
     lexer-factory get call( lines -- lexer ) (parse-lines) ;