Welcome to the CHICKEN Scheme pasting service

no title added by anonymous on Mon Aug 13 16:07:51 2012

(declare (pure foo))
(define (foo)
  (print 1))

(print
 (begin
   (foo)
   (foo)
   (foo)
   (foo)))

$ ~/tmp/bar
1
#<unspecified>
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which one-argument R5RS procedure returns 1 when given `'(1 2 3)' as input?