Brian.hs

module Main where

import           Data.Char

main = do
  text <- getContents
  let linesList = lines text
  let results = map doThing linesList
  mapM_ print results
  let other = map doOtherThing linesList
  mapM_ print other

doThing oneline = map toUpper oneline

doOtherThing ('a':_) = "starts with a"
doOtherThing ('b':_) = "start with b"
doOtherThing ('t':_) = "starts with t"
doOtherThing x       = "we don't handle this case: " ++ x


doThatThing thatLine = case (head thatLine) of
  'a' -> "probably starts with a"
  x   -> "we don't handle this thing: " ++ [x]