((table (thead (tr (th "foo") (th ((class . "left")) "bar") (th ((class . "center")) "baz") (th ((class . "right")) "bim"))) (tbody (tr (td "default") (td ((class . "left")) "left") (td ((class . "center")) "center") (td ((class . "right")) "rightright")) (tr (td "one") (td ((class . "left")) "twotwo") (td ((class . "center")) "three") (td ((class . "right")))) (tr (td "alpha") (td ((class . "left")) "beta") (td ((class . "center")) "gamma") (td ((class . "right")) "delta")))))