Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- module Main where
- import System.Environment
- main :: IO ()
- main = getArgs >>= foo . read . head
- foo :: Int -> IO ()
- foo n = do if (n == 0) then ma else mb
- where
- ma = print ["true ", show n]
- mb = return ()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement