Select Code to Download

fib :: [Integer]
fib = 1 : 1 : zipWith (+) fib (tail fib)

inschar n c = foldr1 (\s1 s2 -> s1 ++ c : s2) . 
          map (take n) . takeWhile (not . null) . iterate (drop n)

commaize :: String -> String
commaize = reverse . inschar 3 ',' . reverse