ce.fs

: ce 
   s" marker ___" evaluate 
   :noname 0 parse evaluate postpone ;
   execute s" ___" evaluate ;