a [ loopit x
a [ x
C loopit x times
{+x$0}/0
c[0
c[c:1
{+c%x:1}/0
L [ K apple K
{5