square :: Int -> Int square n = n * n main = do print $ square 5