$ cat paypal.html
csi> (with-input-from-file "paypal.html" (lambda () (pp (html->sxml (current-input-port))))) (*TOP* (form (@ (action "https://www.paypal.com/cgi-bin/webscr") (method "post")) "\n" (input (@ (type "hidden") (name "cmd") (value "_s-xclick")) "\n" (input (@ (type "hidden") (name "hosted_button_id") (value "A6QA7V2SJWJ8W")) "\n" (input (@ (type "image") (src "https://www.paypalobjects.com/en_US/i/btn/btn_donate_LG.gif") (border "0") (name "submit") (alt "PayPal - The safer, easier way to pay online!")) "\n" (img (@ (alt "") (border "0") (src "https://www.paypalobjects.com/pt_BR/i/scr/pixel.gif") (width "1") (height "1"))) "\n")) (input (@ (type "image") (src "https://www.paypalobjects.com/en_US/i/btn/btn_donate_LG.gif") (border "0") (name "submit") (alt "PayPal - The safer, easier way to pay online!")) "\n")))) What is generated for the wiki HTML page: