USING: kernel prettyprint ; IN: testing : getColorFromInt ( int -- string ) { { [ dup 0 = ] [ "RED" ] } { [ dup 1 = ] [ "BLUE" ] } { [ dup 2 = ] [ "GREEN" ] } { [ dup 3 = ] [ "PURPLE" ] } } cond swap drop ; : testMe ( -- ) 3 getColorFromInt . ; MAIN: testMe