(defcc <strip>
    <comment> <strip> := <strip>;
    X <strip>;
    <e> := [];)
 
(defcc <comment>
  "%" <stuff>  "%" := skip;)
 
(defcc <stuff>
   <token> <stuff> := skip ;
   <e>;)

(defcc <token>
   X := skip  where (not (= X "%"));)

(compile (fn <strip>) [($ "hello %just a comment% world")])