add printLine :: String -> UI () and printLines :: [String] -> UI ()
user readFile instead of openFile+hGetContents