4 lines
177 B
Text
4 lines
177 B
Text
: first 0 extract nip ; : second 1 extract nip ; : nip swap drop ;
|
|
: say(*) dup first " => " 2 compress "" join . second . ;
|
|
|
|
[['foo 5] ['bar 10] ['baz 20]] 'say apply drop
|