: chain ( a b -- )   2dup  @ swap !  ! ;