# $include "/home/dennis/src/lang/unicon13_beta/unicon/ipl/procs/numbers.icn"

procedure main()
    local t, x, step

    write("Unicon output")
    write("Chapter 4")
    write("Problem 3")

    # when x = y
    t := 5.0/16.0
    # then
    x := 5.0 * t;
    step := ceil(12.0/8.0 * x);

    write("Step = " || step)

end