#!/home/jj/bin/camilax -n

dlload("./jjdb.so");
a <- dbopen("aaa");

dbput(a,<1,2,3>, <1,2,<2,3,4,<3,4,5,{"aaa","bbb"},[12 -> {'a,'b,'c}]>>>);
dbput(a,"1","2");
dbput(a,1,2);

aux <- getas("ls -la /usr/bin", ['type -> "tab"]);
foreach( x, aux , let(a1=reverse(x))
                  in if(a1 is-<h:t> -> dbput(a,h,t)));

x <- dbget(a,1);
pp(x);

x <- dbget(a,"1");
pp(x);

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

foreach( x, aux , let(a1=reverse(x))
                  in if(a1 is-<h:t> -> pp(dbget(a,h))));

aux2 <- < dbget(a,hd(h)) |   h <- reverse(aux)> ;