#! /usr/bin/sed -f # allow "%" as a comment char s/^%/@c / s/[^\\]%.*$// s/\\%/%/ #preserve blanks in @lisp blocks /@lisp/,/@end lisp/ p /@lisp/,/@end lisp/ d # remove leading blanks s/^[ ]*// #s/\\t/@code/g