Update factorial.scm