************************************************************************
* This program removes all the spaces from the input line and echos it
* It then removes all the occurrences of b, h or m followed by e or a
* from the line and then prints it
* The default for input processing is to read from standard input
* To run this program and use the input after the end statement as
* the input, use:
*   snobol4 -r snarf.sno
************************************************************************
top     text = input                              :f(end)
spout   text ' ' =                                :s(spout)
        output = 'spaces removed: ' text        
loop    text ('b' | 'h' | 'm') ('e' | 'a') =      :s(loop)
        output = text                             :(top)
end
he ate banana hamburgers
snob beast
marlena ate banana hamburgers with mama and me
with mama and me