NetBSD/gnu/usr.bin/bc/Test/jn.b

scale = 30
for (a=0; a<5; a=a+2) {
  for (b=0; b<100; b=b+10) x=j(a,b)
}
x
quit