#N canvas 400 200 490 340 14;
#X msg 50 140 1 2 hi 4;
#X msg 130 140 1 2 3 hi;
#X msg 210 140 3;
#X obj 70 250 has hi;
#X obj 130 250 has 3;
#X obj 180 250 has 4;
#X obj 70 280 tgl 15 0 empty empty empty 17 7 0 10 #0e4345 #fcfcfc
#fcfcfc 0 1;
#X obj 130 280 tgl 15 0 empty empty empty 17 7 0 10 #0e4345 #fcfcfc
#fcfcfc 0 1;
#X obj 180 280 tgl 15 0 empty empty empty 17 7 0 10 #0e4345 #fcfcfc
#fcfcfc 0 1;
#X obj 220 30 cnv 15 48 24 empty empty has 4 12 0 18 #000000 #fcfcfc
0;
#X obj 260 140 pointer;
#X msg 240 250 2;
#X obj 260 170 t p p;
#X msg 330 140 symbol bang;
#X obj 320 250 namecanvas foo;
#X msg 260 110 traverse foo \, bang;
#X obj 130 210 t a;
#X obj 330 170 t s s;
#X obj 180 220 bng 15 250 50 0 empty empty empty 17 7 0 10 #ff8300
#ff0400 #fcfcfc;
#X text 50 60 checks if a list contains a specific atom value;
#X connect 0 0 16 0;
#X connect 1 0 16 0;
#X connect 2 0 16 0;
#X connect 3 0 6 0;
#X connect 4 0 7 0;
#X connect 5 0 8 0;
#X connect 10 0 12 0;
#X connect 11 0 5 1;
#X connect 12 0 16 0;
#X connect 12 1 5 1;
#X connect 13 0 17 0;
#X connect 15 0 10 0;
#X connect 16 0 3 0;
#X connect 16 0 4 0;
#X connect 16 0 5 0;
#X connect 17 0 16 0;
#X connect 17 1 5 1;
#X connect 18 0 5 0;
