: SCPY
    BEGIN         ( a )
        C@+       ( a+1 c )
        DUP C,    ( a c )
        NOT IF DROP EXIT THEN
    AGAIN ;