main :: IO ()
main = 
  print $ 
  "Is myLines working? "
  ++ show (myLines sentences == shouldEqual)
  ++ " Is myLines' working? "
  ++ show (myLines' '\n' sentences == shouldEqual)
main :: IO ()
main = 
  print $ 
  "Is myLines working? "
  ++ show (myLines sentences == shouldEqual)
  ++ " Is myLines' working? "
  ++ show (myLines' '\n' sentences == shouldEqual)
main = 
  print $ 
  "Is myLines working? "
  ++ show (myLines sentences == shouldEqual)
  ++ " Is myLines' working? "
  ++ show (myLines' '\n' sentences == shouldEqual)