scan "^\/\*" eforth.S > glossary
ed glossary <<BLA
,s!\/\*.!!
,s!\*\/!!
wq
BLA

