(function readLines [file]
    (.filter
        (.map
            // TODO implement escape sequences in kiss string literals
            (.split (.replace (File.getContent file) #|"\r"|# "") #|"\n"|#)
            StringTools.trim)
        (lambda [l] (< 0 l.length))))

(function readParagraphLines [file]
    (.filter
        (for paragraph
            (.split 
                (.replace (File.getContent file) #|"\r"|# "")
                #|"\n\n"|#)
                (.filter
                    (paragraph.split #|"\n"|#)
                    (lambda [line] (< 0 line.length))))
        (lambda [lines] (< 0 lines.length))))

// TODO won't need to specify type here if last is not a quickNth
(function :kiss.List<Int> readInts [file] (let [lines (readLines file)] (lines.map Std.parseInt)))

(function countChar [char str]
    (count (str.split "") (lambda [c] ?(= c char))))