$ENTRY Go {
    = <Prout <StripComments 'apples, pears # and bananas'>>
      <Prout <StripComments 'apples, pears ; and bananas'>>;
};

StripComments {
    e.X = <Trim <StripAll (';#') e.X>>;
};

Trim {
    e.X ' ' = <Trim e.X>;
    e.X = e.X;
};

StripAll {
    () e.X = e.X;
    (s.C e.C) e.X = <StripAll (e.C) <Strip s.C e.X>>;
};

Strip {
    s.C e.X s.C e.Y = e.X;
    s.C e.X = e.X;
};