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

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

$ ~/tmp/bar
1
#<unspecified>