%% load file
load("glob.lf")?

%% write
write("WildLIFE output\n")?

write("Chapter 5\n")?
write("Problem 5\n")?

problem_5(T1, T2, A1, A2, F1, X2) :-
    1.0 = (50.0 * 5280.0 / 60.0 / 60.0) / (200.0 / 0.5)  * T1, 
    200.0 = 0.5 * A1 * T1 * T1,
    0.0 = 50.0 * 5280.0 / 60.0 / 60.0 - A1 * T1,
    F1 = 3000.0 / 32.2 * A1,
    F1 = 3000.0 / 32.2 * A2,
    0.0 = 25.0 * 5280.0 / 60.0 / 60.0 - A2 * T2,
    X2 = 0.5 * A2 * T2 * T2,
    write("T1 = ",T1),nl,
    write("T2 = ",T2),nl,
    write("A1 = ",A1),nl,
    write("A2 = ",A2),nl,
    write("F1 = ",F1),nl,
    write("X2 = ",X2 ),nl.