data:
n is number

procedure:
sub factorial
    parameters:
        n is number
        result is number
    local data:
        i is number
        m is number
    procedure:
        store 1 in result
        in m solve n + 1
        for i from 1 to m step 1 do
            multiply result by i in result
        repeat
end sub
create statement "get factorial of $ in $" executing factorial

get factorial of 5 in n
display n lf