Pandoc (Meta {unMeta = fromList [("operator",MetaInlines [Str "John",Space,Str "MacFarlane"])]})
[Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "test",Space,Str "of",Space,Str "FORMATTING.",Space,Str "This",Space,Str "is",Space,Str "hidden:",Space,Str "."]
,Para [SmallCaps [Str "Small",Space,Str "Caps"]]
,Para [Strong [Str "bold"]]
,Para [Emph [Str "italics"]]
,Para [Strong [Str "bold",Space,Emph [Str "and",Space,Str "italics"]]]
,Para [Underline [Str "underlined"]]
,Para [Strikeout [Str "strikeout"]]
,Para [Str "x",Superscript [Str "superscript"]]
,Para [Str "x",Subscript [Str "subscript"]]]