variable last-key
: check   key? if key last-key ! then ;