chose/extra/Fraise/fruit/send.pd

#N canvas 641 226 605 540 10;
#X obj 95 35 inlet;
#X obj 122 496 s Fraise-\$1-rcv;
#X obj 95 57 t b a;
#X obj 205 166 list trim;
#X obj 205 187 route c i l;
#X obj 205 212 mod 256;
#X obj 278 258 mod 256;
#X obj 226 235 t f f;
#X obj 226 258 div 256;
#X obj 226 303 pack f f;
#X obj 496 303 mod 256;
#X obj 341 169 t f f;
#X obj 341 192 div 256;
#X obj 341 331 pack f f f f;
#X obj 442 303 mod 256;
#X obj 341 214 t f f;
#X obj 341 237 div 256;
#X obj 392 304 mod 256;
#X obj 341 260 t f f;
#X obj 341 283 div 256;
#X obj 341 303 mod 256;
#X text 190 25 input: type1 val1 [type2 val2 [...]];
#X text 193 42 types: c=char (8 bits);
#X text 235 53 i=int (16 bits);
#X text 235 65 l=long (32 bits);
#X obj 226 281 mod 256;
#X obj 450 40 inlet char;
#X obj 450 81 s Fraise-\$1-C-rcv;
#X obj 122 101 t a a;
#X obj 122 78 list;
#X obj 143 443 list;
#X obj 122 470 list;
#X obj 95 416 t b b;
#X msg 95 441 list;
#X obj 143 389 t a;
#X obj 122 130 list split 2;
#X obj 205 130 list split 2;
#X text 50 5 usage: fruit/send fruitname;
#X obj 143 416 list prepend;
#X connect 0 0 2 0;
#X connect 2 0 32 0;
#X connect 2 1 29 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 7 0;
#X connect 4 2 11 0;
#X connect 5 0 34 0;
#X connect 6 0 9 1;
#X connect 7 0 8 0;
#X connect 7 1 6 0;
#X connect 8 0 25 0;
#X connect 9 0 34 0;
#X connect 10 0 13 3;
#X connect 11 0 12 0;
#X connect 11 1 10 0;
#X connect 12 0 15 0;
#X connect 13 0 34 0;
#X connect 14 0 13 2;
#X connect 15 0 16 0;
#X connect 15 1 14 0;
#X connect 16 0 18 0;
#X connect 17 0 13 1;
#X connect 18 0 19 0;
#X connect 18 1 17 0;
#X connect 19 0 20 0;
#X connect 20 0 13 0;
#X connect 25 0 9 0;
#X connect 26 0 27 0;
#X connect 28 0 35 0;
#X connect 28 1 36 0;
#X connect 29 0 28 0;
#X connect 30 0 31 1;
#X connect 30 0 38 1;
#X connect 31 0 1 0;
#X connect 32 0 33 0;
#X connect 32 1 31 0;
#X connect 33 0 30 0;
#X connect 34 0 38 0;
#X connect 35 1 29 0;
#X connect 36 0 3 0;
#X connect 38 0 30 0;
#X coords 0 0 1 1 200 40 0;