styleBlock :: ToElem a => a -> Perch 
styleBlock cont = nelem  "style" `child` cont
styleBlock :: ToElem a => a -> Perch
styleBlock cont = nelem  "style" `child` cont
styleBlock cont = nelem  "style" `child` cont