function log (b : int, x : real) : real
    result (ln (x) / ln (b))
end log

% The factoring program
% Declare varibles.

var integer : int
% Ask user to input the integer.
put "Please enter a integer between 1 and 50: " ..
get integer
% Output factors for the integer.
put "Here are all the factors for ", integer, ":"
put "1 " ..
% Use loops to get factors continuesly.
loop
    if integer mod 2 = 0     % used to get factors.
            then
        put 2, " " ..
        integer := integer div 2     % After get factor 2, continue to get the next factor.
    end if
    exit when integer mod 2 not= 0
end loop
loop
    if integer mod 3 = 0
            then
        put 3, " " ..
        integer := integer div 3
    end if
    exit when integer mod 3 not= 0
end loop
loop
    if integer mod 5 = 0
            then
        put 5, " " ..
        integer := integer div 5
    end if
    exit when integer mod 5 not= 0
end loop
loop
    if integer mod 7 = 0
            then
        put 7, " " ..
        integer := integer div 7
    end if
    exit when integer mod 7 not= 0
end loop
loop
    if integer mod 11 = 0
            then
        put 11, " " ..
        integer := integer div 11
    end if
    exit when integer mod 11 not= 0
end loop
loop
    if integer mod 13 = 0
            then
        put 13, " " ..
        integer := integer div 13
    end if
    exit when integer mod 13 not= 0
end loop
loop
    if integer mod 17 = 0
            then
        put 17, " " ..
        integer := integer div 17
    end if
    exit when integer mod 17 not= 0
end loop
loop
    if integer mod 19 = 0
            then
        put 19, " " ..
        integer := integer div 19
    end if
    exit when integer mod 19 not= 0
end loop
loop
    if integer mod 23 = 0
            then
        put 23, " " ..
        integer := integer div 23
    end if
    exit when integer mod 23 not= 0
end loop
loop
    if integer mod 29 = 0
            then
        put 29, " " ..
        integer := integer div 29
    end if
    exit when integer mod 31 not= 0
end loop
loop
    if integer mod 31 = 0
            then
        put 31, " " ..
        integer := integer div 31
    end if
    exit when integer mod 31 not= 0
end loop
loop
    if integer mod 37 = 0
            then
        put 37, " " ..
        integer := integer div 37
    end if
    exit when integer mod 37 not= 0
end loop
loop
    if integer mod 41 = 0
            then
        put 41, " " ..
        integer := integer div 41
    end if
    exit when integer mod 41 not= 0
end loop
loop
    if integer mod 43 = 0
            then
        put 43, " " ..
        integer := integer div 43
    end if
    exit when integer mod 43 not= 0
end loop
loop
    if integer mod 47 = 0
            then
        put 47, " " ..
        integer := integer div 47
    end if
    exit when integer mod 47 not= 0
end loop