fbuddy created by bucketsize - https://repl.it/@bucketsize/fbuddy

main.hs

import Data.Char

fact :: Int -> Int
fact 0 = 1
fact n = n*fact (n-1)

caps :: IO ()
caps = do
  contents <- getContents  
  putStr (map toUpper contents)

shortLinesOnly :: String -> String  
shortLinesOnly input =   
    let allLines = lines input  
        shortLines = filter (\line -> length line < 10) allLines  
        result = unlines shortLines  
    in  result  

shLnOnly :: String -> String
shLnOnly = unlines . filter (\l -> length l < 10) . lines

sLns :: String -> String
sLns = unlines . filter ((<10) . length) . lines

main = do
  print("hllo")
  print(fact 4)
  interact sLns