#factorial.pasm
       print "The first 15 factorials are:\n"
       set I1, 0
       set I2, 15
       set I3, 1
REDO:  inc I1
       mul I3, I3, I1
       print I3
       print "\n"
       lt I1, I2, REDO
DONE:  end


##</code><code>##

parrot -o factorial.pbc factorial.pasm
then
parrot factorial.pbc