fork download
  1.  
  2. f1 :: (Num a, Show a) => a -> IO()
  3. f1 = print
  4.  
  5. f2 :: (Num a, Show a) => a -> IO()
  6. f2 x = print $ x + 1
  7.  
  8. main = let y = 1 in do
  9. f1 y
  10. f2 y
Success #stdin #stdout 0s 4708KB
stdin
Standard input is empty
stdout
1
2