makeCol i = fromText "<td>" `mappend` (fromInt i `mappend` fromText "</td>")
makeCol i = fromText "<td>" `mappend` (fromInt i `mappend` fromText "</td>")
makeCol i = fromText "<td>" `mappend` (fromInt i `mappend` fromText "</td>")