for each child:
	a := max(a, f(a, child))
        if 5 <= a:
        	break
return a

(last (take-while #(> 5 %) (reductions #(max % (f % %2)) initial-a childs)))