% Example by Don Hopkins

{ currentcursorlocation
  [ ($@ $0 $1 $2 $3 $4 $5 $6 $7 $8 $9)
    { currentfile 80 string readline not { exit } if } loop
  ] popmsg pop }
exec