Added scheme function definitions:

    (define (sqr x) (* x x))
    ==>
    (define sqr (lambda (x) (* x x)))