1.3.1 in Scheme