f a b =
  let i = (a*10) `div` b
      o = (a*10) `mod` b
  in
    i:(f o b)
f a b =
  let i = (a*10) `div` b
      o = (a*10) `mod` b
  in
    i:(f o b)
f a b =
  let i = (a*10) `div` b
      o = (a*10) `mod` b
  in
    i:(f o b)