Check printer - Convert to English text from the input value. Check printer function (or subroutine) - Convert to English text from the input value. 12.34 -> "twelve dollars and thirty four cents". For the range .01 to 9999.99 assuming valid input.
Common Lisp, 95
 
Newline not counted in:
(lambda(n &amp;aux(d(floor n))(c(round(*(- n d)100))))
(format()&quot;~R dollar~P and ~R cent~P&quot;d d c c))

Sample use (assigning it to f):
CL-USER&gt; (f .01)
&quot;zero dollars and one cent&quot;
CL-USER&gt; (f 12.34)
&quot;twelve dollars and thirty-four cents&quot;
CL-USER&gt; (f 9999.99)
&quot;nine thousand nine hundred ninety-nine dollars and ninety-nine cents&quot;