USING: xml.syntax xml.writer locals sequences ; TUPLE: person name age record ; CONSTANT: friends { T{ person { name "George" } { age 25 } { record { "Posession paraphenalia" "Posession narcotics" "Break and enter" } } } T{ person { name "Derek Ray" } { age 31 } { record { "Armed robbery" "Fraud" "Rape" } } } T{ person { name "Johnny" } { age 17 } { record { "Truancy" "First-degree murder" } } } } : render-record ( list -- xml ) [ [XML
Name | Age | Rap sheet |
---|