Name: Anonymous 2012-10-19 20:45
supchain num char = aux num char
where
aux 0 _ = replicate num "[/sub]"
aux n c = t : "[sup]" ++ aux (n-1) c
subchain num char = aux num char
where
aux 0 _ = replicate num "[/sup]"
aux n c = t : "[sup]" ++ aux (n-1) c