% What is printed by the following CLU program?

start_up = proc()
    stdout: stream := stream$primary_output()
    begin
	while true
	do
		a_procedure()
		    except when bar:
			stream$putl(stdout, "Royal Oak")
		    end
		another_procedure()
	end
	    except when bar:
		stream$putl(stdout, "Clawson")
		exit bar
	    end
    end
	except when bar:
	    stream$putl(stdout, "Troy")
	end
end start_up

a_procedure = proc() signals(bar)
    stdout: stream := stream$primary_output()
    signal bar
    stream$putl(stdout, "Ferndale")
end a_procedure

another_procedure = proc() signals(bar)
    stdout: stream := stream$primary_output()
    signal bar
    stream$putl(stdout, "Birmingham")
end another_procedure