q=a=1,b=0
eval"p a;q<<a=q[b]+q[b=-a];"*300