(><) i s= [(i, s)]
(///) l = mapM_ ((*<>*) l "") [1..20]

(@-@) i j s r = if i `mod` j == 0 then s ++ r else s

(*<>*) [] = (^<>^)
(*<>*) l  = (-<>-) l
(^<>^) "" = print
(^<>^) s  = const $ putStrLn s
(-<>-) ((j, r):t) s  i = (*<>*) t ((@-@) i j s r ) i
 
main = (///) ((++) ((><) 3 "ふぃず") ((><) 5 "ばず"))