Name: Anonymous 2009-07-27 14:50
I wrote some actual programmes when you were down. Please don't leave me again.
(define (rhombus m)
;;Needs to be optimized to remove the redundant tags
;;Also use special cases of skew(left|right) so that first element is ignored
(let ((message (split m)))
(string-append (skew-left sup message)
(skew-right sup message)
br
(skew-left sub message)
(skew-right sub message))))