4.3BSD/usr/contrib/icon/book/04/powers.icn

procedure main()
   i := 0
   while i < 10 do {
      i +:= 1
      write(right(i,5),right(i ^ 2,8),right(i ^ 3,8),
         right(i ^ 4,8))
      }
end