0→A
While 1
 A++
 Disp A▶Dec,i
End!If A^6