spn cls x = [TagOpen "span" [("class",cls)], TagText x, TagClose "span"]
spn cls x = [TagOpen "span" [("class",cls)], TagText x, TagClose "span"]
spn cls x = [TagOpen "span" [("class",cls)], TagText x, TagClose "span"]