Welcome to the CHICKEN Scheme pasting service
wrapping rows in a table pasted by C-Keen on Mon Jul 17 15:48:24 2017
#;1> (define es '((J Lidl 1.23) (M famila 1.23))) #;2> es ((J Lidl 1.23) (M famila 1.23)) #;3> (map (lambda (r) `(tr ,(map (lambda (e) `(td ,e)) r))) es) ((tr ((td J) (td Lidl) (td 1.23))) (tr ((td M) (td famila) (td 1.23))))
correction added by C-Keen on Mon Jul 17 15:49:34 2017
#;4> (map (lambda (r) `(tr ,@(map (lambda (e) `(td ,e)) r))) es) ((tr (td J) (td Lidl) (td 1.23)) (tr (td M) (td famila) (td 1.23)))