#! ./_db2 

a <- dbopen("aaa");

dbput(a,<1,2,3>, <1,2,<2,3,4,<3,4,5>>>);

x <- dbget(a,<1,2,3>);

pp(x);

pp(if(x == <1,2,<2,3,4,<3,4,5>>> ) then ":-)))" else ":-(");

dbclose(a);
quit.