Update 40a.scm

Fixed some formatting...