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