xyu :: Maybe Int -> Int xyu (Just x) = x main = putStrLn . show $ xyu Nothing