read a
for((i=0;i<$a;i++));do
dc -e'?r1+*p'
done