SINGLETON: fail
TUPLE: vm target pc position stack captures ;

: Char ( vm c -- vm )
  over
  [ [ position>> ] [ target>> ] bi nth = ]
  [ dup [ [ 1 + ] change-pc ] [ [ 1 + ] change-position ] bi ]
  [ dup fail >>pc ]
  if
;