square n = let allNumbers = [0..]
           in head $ filter (== n*n) allNumbers

main = putStrLn ("square 5 = " ++ show (square 5))