+
+ -- gross hack
+ toHtml (Command "ordinal" x) | (last (toHtml x) == '1') = (toHtml x)++"<sup>"++"st"++"</sup>"
+ | (last (toHtml x) == '2') = (toHtml x)++"<sup>"++"nd"++"</sup>"
+ | (last (toHtml x) == '3') = (toHtml x)++"<sup>"++"rd"++"</sup>"
+ | otherwise = (toHtml x)++"<sup>"++"th"++"</sup>"
+