>I'm sure there is a reason behind it since it's Prelude.
I originally used the return value of putchar as the return value of the function. The calculation was too nasty (and longer than I wanted) so I changed it, but neglected to remove the return value.