: 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