/ input and store the phongtorial base
input
store base
store index

begin_calculation, load index
/ index -= 1
subt one
store index

/ base += index
load base
add index
store base

/ if (index != 0) { goto begin_calculation; }
load index
skipcond 400
jump begin_calculation

/ output completed phongtorial
load base
output

halt

/ variables
one, dec 1
base, hex 0
index, hex 0