+append([],$y,$y);
+append([$l|$x],$y,[$l|$z]),append($x,$y,$z);
+test2,fail;
+test3,prtn("OK3");
+not($p),$p,printn("debug1-OK"),!,fail;
+not($p);
,not(append([a],[b],[a,b])),printn("NG");
,not(append([a],[c],[a,b])),printn("OK");
,not(test),printn("NG");
,not(test2),printn("OK2");
,not(test3),printn("NG");
