[ tuck take swap join swap put ] is append ( [ s --> )

  $ "L'homme qui attend de voir un canard roti voler "   temp put
  $ "dans sa bouche doit attendre tres, tres longtemps." temp append
  temp take echo$