SYMBOLS: a b c d ;
: abcd ( n -- a b c d )
{ 
    { 1 [ a b c d ] }
    { 2 [ d a b c ] }
    { 3 [ c d a b ] }
    { 4 [ b c d a ] }
    [ "input is only 1-4, fix your typo" throw ]
} case ;