let f () = "A" ;; print_endline @@ f ()

	branch L2
L1:	const "A"
	return 1
L2:	closure L1, 0
	push
	const 0a
	push
	acc 1
	apply 1
	push
	getglobal Pervasives!
	getfield 30
	apply 1
	acc 0
	makeblock 1, 0
	pop 1
	setglobal Foo2!

-----------------------------------------------------------------------------------------------

print_endline @@ (fun () -> "A") ()

	const 0a
	push
	const "A"
	pop 1
	push
	getglobal Pervasives!
	getfield 30
	apply 1
	makeblock 0, 0
	setglobal Foo3!