10   'Hoen data
   20   point 20
   30   dim Bern(50)
   40   dim Zr(50)
   50   dim Br(50)
   60   dim Ar(38)
   70   Bern(0)=1
   80   Bern(2)=1//6
   90   Bern(4)=1//30
  100   Bern(6)=1//42
  110   Bern(8)=1//30
  120   Bern(10)=5//66
  130   Bern(12)=691//2730
  140   Bern(14)=7//6
  150   Bern(16)=3617//510
  160   Bern(18)=43867//798
  170   Bern(20)=174611//330
  180   Bern(22)=854513//138
  190   Bern(24)=236364091//2730
  200   Bern(26)=8553103//6
  210   Bern(28)=23749461029//870
  220   Bern(30)=8615841276005//14322
  230   Bern(32)=7709321041217//510
  240   Bern(34)=2577687858367//6
  250   Bern(36)=26315271553053477373//1919190
  260   Bern(38)=2929993913841559//6
  270   Zr(0)=1
  280   Zr(1)=1//2
  290   Zr(2)=1//12
  300   Zr(4)=1//720
  310   Zr(6)=1//30240
  320   Zr(8)=1//1209600
  330   Zr(10)=1//47900160
  340   Zr(12)=691//1307674368000
  350   Zr(14)=1//74724249600
  360   Zr(16)=3617//10670622842880000
  370   Zr(18)=43867//5109094217170944000
  380   Zr(20)=1222277//5620003638888038400000
  390   Zr(22)=77683//14101100039391805440000
  400   Zr(24)=236364091//1693824136731743669452800000
  410   Zr(26)=657931//186134520519971831808000000
  420   Zr(28)=3392780147//37893265687455865519472640000000
  430   Zr(30)=14165278892375563//6247804586933880775014170838958080000000
  440   Zr(32)=484523219957202083//8451575659416013266564623825790566400000000
  450   Zr(34)=114854967421275799//79686284788779553656180738928882483200000000
  460   Zr(36)=25265508368275388380329//713687897550962274046559057609636873685504000000000
  470   Zr(38)=3358402522722262198911//4282137385305779284279354345657815242113024000000000 'num 18584025...
  480   Ar(0)=1:Ar(1)=1//2
  490   for N=2 to 38 step 2
  500     Ar(N)=Ar(0)//!(N+1)-Ar(1)//!(N)
  510     for M=2 to N-2 step 2
  520       Ar(N)=Ar(N)+(-1)^(M\2+1)*Ar(M)//!(N+1-M)
  530     next M
  540     Ar(N)=abs(Ar(N)) ':if N=30 then Ar(N)=Zr(N)
  550   next N
  560   for N=2 to 38 step 2
  570     print N,Bern(N)//Ar(N)//!(N)
  580   next N