/* Simple script to compute Q[] series from the Knuth S algorithm
** (vol.2 p.133). 
** Usage: bc -ql bc.txt
*/
scale=1000
obase=16
l=l(2);
cur=l(2);
q[0]=0.0;
for (i=1; i < 25; i++){
    q[i] = q[i-1] + cur
    cur = (cur * l) / (i + 1.0)
    print q[i]*(2^64)
    print "\n"
}
