fork download
  1. {-# Language CPP #-}
  2.  
  3. import Data.Char
  4.  
  5. prev = fromInteger __LINE__
  6. next = fromInteger __LINE__
  7. one = next - prev
  8. two = one + one
  9. three = one + two
  10. four = two + two
  11. five = two + three
  12. ten = two * five
  13. space = ten * three + two
  14. d = ten * ten
  15. e = d + one
  16. h = e + three
  17. l = h + four
  18. o = l + three
  19. r = o + three
  20. w = r + five
  21.  
  22. main = putStrLn $ map chr [h, e, l, l, o, space, w, o, r, l, d]
Success #stdin #stdout 0s 4696KB
stdin
Standard input is empty
stdout
hello world