fork download
  1. main = (^<>^) (*<>*) (-<>-)
  2.  
  3. (^<>^) = mapM_
  4. (-<>-) = [1..20]
  5. (*<>*) = (///) . (><)
  6.  
  7. (///) = putStrLn
  8. (><) y | (@.@) y==0 = "ふぃずばず"
  9. | (@-@) y==0 = "ばず"
  10. | (@&@) y==0 = "ふぃず"
  11. (><) y = show y
  12.  
  13. (@^@) = flip mod
  14. (@.@) = (@^@) 15
  15. (@-@) = (@^@) 5
  16. (@&@) = (@^@) 3
Success #stdin #stdout 0.02s 3592KB
stdin
Standard input is empty
stdout
1
2
uCZ
4
pZ
uCZ
7
8
uCZ
pZ
11
uCZ
13
14
uCZpZ
16
17
uCZ
19
pZ