fork(1) download
  1. one _ = 1
  2. two _ = 2
  3. tri _ = 3 :: Int
  4. fur _ = 4.0
  5.  
  6. one0 = one 0
  7. two0 = two 0
  8. tri0 = tri 0
  9. fur0 = fur 0
  10.  
  11. pst :: Show t => t -> IO()
  12. pst = putStrLn . show
  13.  
  14. ps t = putStrLn $ show t
  15.  
  16. main = do
  17. ps $ one0 + tri0
  18. ps $ two0 + fur0
  19. ps $ one0 + two 0
  20.  
Success #stdin #stdout 0s 8388607KB
stdin
Standard input is empty
stdout
4
6.0
3