5 lines
177 B
Text
5 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
|