Halon exercise

misc.hs

import System.Environment
import Data.Bool
import Data.List

checkchar :: IO Bool
checkchar = do c <- getChar
               return (c == 'y')

addList :: Int -> [Int] -> [Int]
addList y (x:xs) = y:xs

main::IO ()
main = do putStrLn "Enter char"
          x <- checkchar
          if x
          then putStrLn "TRUE"
          else putStrLn "FALSE"

          let l = [1,2]
          print $ l
          let m = addList 3 l
          print $ m