gistfile1.txt

( >last and expose )

{{
  : tod     (  -a  ) last @ ;
  : nod     (  -a  ) tod @ ;  
  : after   ( a-a  ) last repeat @ 2dup @ =if nip ;then again ;
  : remove  ( a-   ) dup @ swap after ! ;
  : replace ( a-   ) tod over ! last ! ;
  ---reveal---
  : >last   ( a-   ) dup remove replace ;
  : expose  ( "-   ) ' drop which @ >last ;
}}