STk> (load "proj4.scm")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;testing for Subgroup A
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

? print sum 1 2
3
? print (sum 1 2 3 4 5)
15
? print xyz 1 2
1
2
okay
? print 1 + 2 *3
9


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;testing for Subgroup B
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

? make "foo 27
? print :foo
27
? make "foo 30
? print :foo
30
? to factorial :n
-> if :n=0 [output 1]
-> output :n * factorial :n-1
-> end

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;testing for common problem #3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

? print factorial 5 
120
? print factorial 3
6
? print factorial 6
720
? to foo :x
-> print :x
-> stop
-> print 'b
-> end
? foo 5
5

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;testing for common problem #4
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

? to count :increase static :counter 2+3
-> make "counter :counter + :increase
-> print :counter
-> end
? count 20
25
? count 1
26
? bye

BH Sayz: Thank you for using Logo.
Have a nice day.
STk> (transcript-off)