[Haskell-cafe] weird

[wenduan]

The following function which converts a number represents a sum of money 
in pence didn't work as expected and the result didn't make any sense to 
me:

penceToString :: Price -> String
penceToString  p  =
  let  str  =  show p
       len  =  length str
  in
    if len ==1 then "0.0" ++ str else
         if len ==2 then "0." ++ str else (take (len-2) str) ++ "." ++ 
(drop (len - 2) str )

*Main> penceToString 234566666667899999999786
"-6710990.94"

?!?!

-- 
X.W.D