Update 7A.scm

Correction according to the lecture