import Data.Time.Clock
import Data.Time.Calendar
import Data.Time.LocalTime
main = do
putStrLn "Please enter your birthyear:"
birthyearraw <- getLine
let birthyear = read birthyearraw :: Integer
now <- getCurrentTime
timezone <- getCurrentTimeZone
let zoneNow = utcToLocalTime timezone now
let (year, month, day) = toGregorian $ localDay zoneNow
let ageint = year-birthyear
let age = show ageint
putStrLn ("Yikes, your survived " ++ age ++ " years!")