(~> string-args
    open-input-string
    ((λ (x) (port-count-lines! x) x))
    (in-producer read-syntax eof 'string-args _)
    sequence->list
    (map (compose list eval) _)
    last
    (apply values _))