,"TEST STRING".bsave("binaryformat.adb");
,bload("binaryformat.adb").printn;
,$x=1,["A","B",1000,["C"|"D"],$x,100000.5].bsave("binaryformat2.adb");
,bload("binaryformat2.adb").printn;
,{"B",100,["a","b"]}.bsave("binaryformat3.adb");
,bload("binaryformat3.adb").printn;
,{ "aaa" => "B", "bbb" => 100, "ccc" => ["a","b"]}.bsave("binaryformat4.adb");
,bload("binaryformat4.adb").printn;

#error test
,bload("binaryformat.p").print;