-----------------
> (set 'in-string (read-file "tmp/foo.tmp"))
> (set 'all-lines (parse in-string "n"))
> (set 'non-empty-lines (clean = all-lines)) ; monadic = compares to empty string
> (define (comment? s) (starts-with s "#"))
> (set 'lines (clean comment? non-empty-lines))
> (define (split-at-colons s) (parse s ":"))
> (set 'contents (map split-at-colons lines))