Example from POPL paper