path: root/shortlines.hs

import Data.Char

main = do
    contents <- getContents
    let shortLines = unlines . filter ((<10).length) . lines in
        putStr $ shortLines contents