==(0, builtin)==> 
(letrec ()
  "output-port-set")
==(0, instantiate-global)==> 
(letrec ()
  ((letrec ((map1
             (lambda (f l)
               (if (null? l)
                   ()
                   (cons (f (car l)) (map1 f (cdr l)))))))
     (lambda args
       (if (pair? args)
           (let ((l (cdr args)))
             (if (pair? l)
                 (let ((f (car args)))
                   (if (null? (cdr l))
                       (map1 f (car l))
                       (if (null? (car l))
                           ()
                           (cons (apply f (map car l))
                                 (apply map (cons f (map cdr l)))))))
                 (error "MAP--no list arg: " args)))
           (error "MAP--no args "))))
   politician
   (cons (quote dick)
         (cons (quote tom) (cons (quote harry) (cons (quote dick) ()))))))
==(1, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l)))))))
  ((lambda args
     (if (pair? args)
         (let ((l (cdr args)))
           (if (pair? l)
               (let ((f (car args)))
                 (if (null? (cdr l))
                     (map1 f (car l))
                     (if (null? (car l))
                         ()
                         (cons (apply f (map car l))
                               (apply map (cons f (map cdr l)))))))
               (error "MAP--no list arg: " args)))
         (error "MAP--no args ")))
   politician
   (cons (quote dick)
         (cons (quote tom) (cons (quote harry) (cons (quote dick) ()))))))
==(2, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l)))))))
  ((lambda args
     (if (pair? args)
         (let ((l (cdr args)))
           (if (pair? l)
               (let ((f (car args)))
                 (if (null? (cdr l))
                     (map1 f (car l))
                     (if (null? (car l))
                         ()
                         (cons (apply f (map car l))
                               (apply map (cons f (map cdr l)))))))
               (error "MAP--no list arg: " args)))
         (error "MAP--no args ")))
   (lambda (input)
     (let ((output (output-proc_5 input state_5)))
       (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
   (cons (quote dick)
         (cons (quote tom) (cons (quote harry) (cons (quote dick) ()))))))
==(3, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l)))))))
  ((lambda args
     (if (pair? args)
         (let ((l (cdr args)))
           (if (pair? l)
               (let ((f (car args)))
                 (if (null? (cdr l))
                     (map1 f (car l))
                     (if (null? (car l))
                         ()
                         (cons (apply f (map car l))
                               (apply map (cons f (map cdr l)))))))
               (error "MAP--no list arg: " args)))
         (error "MAP--no args ")))
   (lambda (input)
     (let ((output (output-proc_5 input state_5)))
       (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
   (cons (quote dick)
         (cons (quote tom) (cons (quote harry) (list (quote dick)))))))
==(4, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l)))))))
  ((lambda args
     (if (pair? args)
         (let ((l (cdr args)))
           (if (pair? l)
               (let ((f (car args)))
                 (if (null? (cdr l))
                     (map1 f (car l))
                     (if (null? (car l))
                         ()
                         (cons (apply f (map car l))
                               (apply map (cons f (map cdr l)))))))
               (error "MAP--no list arg: " args)))
         (error "MAP--no args ")))
   (lambda (input)
     (let ((output (output-proc_5 input state_5)))
       (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
   (cons (quote dick) (cons (quote tom) (list (quote harry) (quote dick))))))
==(5, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l)))))))
  ((lambda args
     (if (pair? args)
         (let ((l (cdr args)))
           (if (pair? l)
               (let ((f (car args)))
                 (if (null? (cdr l))
                     (map1 f (car l))
                     (if (null? (car l))
                         ()
                         (cons (apply f (map car l))
                               (apply map (cons f (map cdr l)))))))
               (error "MAP--no list arg: " args)))
         (error "MAP--no args ")))
   (lambda (input)
     (let ((output (output-proc_5 input state_5)))
       (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
   (cons (quote dick) (list (quote tom) (quote harry) (quote dick)))))
==(6, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l)))))))
  ((lambda args
     (if (pair? args)
         (let ((l (cdr args)))
           (if (pair? l)
               (let ((f (car args)))
                 (if (null? (cdr l))
                     (map1 f (car l))
                     (if (null? (car l))
                         ()
                         (cons (apply f (map car l))
                               (apply map (cons f (map cdr l)))))))
               (error "MAP--no list arg: " args)))
         (error "MAP--no args ")))
   (lambda (input)
     (let ((output (output-proc_5 input state_5)))
       (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
   (list (quote dick) (quote tom) (quote harry) (quote dick))))
==(7, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l)))))))
  (letrec ((args
            (list
             (lambda (input)
               (let ((output (output-proc_5 input state_5)))
                 (begin (set! state_5 (next-state-proc_5 input state_5))
                        output)))
             (list (quote dick) (quote tom) (quote harry) (quote dick)))))
    (if (pair? args)
        (let ((l (cdr args)))
          (if (pair? l)
              (let ((f (car args)))
                (if (null? (cdr l))
                    (map1 f (car l))
                    (if (null? (car l))
                        ()
                        (cons (apply f (map car l))
                              (apply map (cons f (map cdr l)))))))
              (error "MAP--no list arg: " args)))
        (error "MAP--no args "))))
==(8, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (args
          (list
           (lambda (input)
             (let ((output (output-proc_5 input state_5)))
               (begin (set! state_5 (next-state-proc_5 input state_5))
                      output)))
           (list (quote dick) (quote tom) (quote harry) (quote dick)))))
  (if (pair? args)
      (let ((l (cdr args)))
        (if (pair? l)
            (let ((f (car args)))
              (if (null? (cdr l))
                  (map1 f (car l))
                  (if (null? (car l))
                      ()
                      (cons (apply f (map car l))
                            (apply map (cons f (map cdr l)))))))
            (error "MAP--no list arg: " args)))
      (error "MAP--no args ")))
==(9, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (args
          (list
           (lambda (input)
             (let ((output (output-proc_5 input state_5)))
               (begin (set! state_5 (next-state-proc_5 input state_5))
                      output)))
           (list (quote dick) (quote tom) (quote harry) (quote dick)))))
  (if (pair?
       (list
        (lambda (input)
          (let ((output (output-proc_5 input state_5)))
            (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
        (list (quote dick) (quote tom) (quote harry) (quote dick))))
      (let ((l (cdr args)))
        (if (pair? l)
            (let ((f (car args)))
              (if (null? (cdr l))
                  (map1 f (car l))
                  (if (null? (car l))
                      ()
                      (cons (apply f (map car l))
                            (apply map (cons f (map cdr l)))))))
            (error "MAP--no list arg: " args)))
      (error "MAP--no args ")))
==(10, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (args
          (list
           (lambda (input)
             (let ((output (output-proc_5 input state_5)))
               (begin (set! state_5 (next-state-proc_5 input state_5))
                      output)))
           (list (quote dick) (quote tom) (quote harry) (quote dick)))))
  (if #t
      (let ((l (cdr args)))
        (if (pair? l)
            (let ((f (car args)))
              (if (null? (cdr l))
                  (map1 f (car l))
                  (if (null? (car l))
                      ()
                      (cons (apply f (map car l))
                            (apply map (cons f (map cdr l)))))))
            (error "MAP--no list arg: " args)))
      (error "MAP--no args ")))
==(11, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (args
          (list
           (lambda (input)
             (let ((output (output-proc_5 input state_5)))
               (begin (set! state_5 (next-state-proc_5 input state_5))
                      output)))
           (list (quote dick) (quote tom) (quote harry) (quote dick)))))
  (let ((l (cdr args)))
    (if (pair? l)
        (let ((f (car args)))
          (if (null? (cdr l))
              (map1 f (car l))
              (if (null? (car l))
                  ()
                  (cons (apply f (map car l))
                        (apply map (cons f (map cdr l)))))))
        (error "MAP--no list arg: " args))))
==(12, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (args
          (list
           (lambda (input)
             (let ((output (output-proc_5 input state_5)))
               (begin (set! state_5 (next-state-proc_5 input state_5))
                      output)))
           (list (quote dick) (quote tom) (quote harry) (quote dick)))))
  (let ((l
         (cdr
          (list
           (lambda (input)
             (let ((output (output-proc_5 input state_5)))
               (begin (set! state_5 (next-state-proc_5 input state_5))
                      output)))
           (list (quote dick) (quote tom) (quote harry) (quote dick))))))
    (if (pair? l)
        (let ((f (car args)))
          (if (null? (cdr l))
              (map1 f (car l))
              (if (null? (car l))
                  ()
                  (cons (apply f (map car l))
                        (apply map (cons f (map cdr l)))))))
        (error "MAP--no list arg: " args))))
==(13, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (args
          (list
           (lambda (input)
             (let ((output (output-proc_5 input state_5)))
               (begin (set! state_5 (next-state-proc_5 input state_5))
                      output)))
           (list (quote dick) (quote tom) (quote harry) (quote dick)))))
  (let ((l (list (list (quote dick) (quote tom) (quote harry) (quote dick)))))
    (if (pair? l)
        (let ((f (car args)))
          (if (null? (cdr l))
              (map1 f (car l))
              (if (null? (car l))
                  ()
                  (cons (apply f (map car l))
                        (apply map (cons f (map cdr l)))))))
        (error "MAP--no list arg: " args))))
==(14, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (args
          (list
           (lambda (input)
             (let ((output (output-proc_5 input state_5)))
               (begin (set! state_5 (next-state-proc_5 input state_5))
                      output)))
           (list (quote dick) (quote tom) (quote harry) (quote dick))))
         (l (list (list (quote dick) (quote tom) (quote harry) (quote dick)))))
  (if (pair? l)
      (let ((f (car args)))
        (if (null? (cdr l))
            (map1 f (car l))
            (if (null? (car l))
                ()
                (cons (apply f (map car l))
                      (apply map (cons f (map cdr l)))))))
      (error "MAP--no list arg: " args)))
==(15, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (args
          (list
           (lambda (input)
             (let ((output (output-proc_5 input state_5)))
               (begin (set! state_5 (next-state-proc_5 input state_5))
                      output)))
           (list (quote dick) (quote tom) (quote harry) (quote dick))))
         (l (list (list (quote dick) (quote tom) (quote harry) (quote dick)))))
  (if (pair? (list (list (quote dick) (quote tom) (quote harry) (quote dick))))
      (let ((f (car args)))
        (if (null? (cdr l))
            (map1 f (car l))
            (if (null? (car l))
                ()
                (cons (apply f (map car l))
                      (apply map (cons f (map cdr l)))))))
      (error "MAP--no list arg: " args)))
==(16, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (args
          (list
           (lambda (input)
             (let ((output (output-proc_5 input state_5)))
               (begin (set! state_5 (next-state-proc_5 input state_5))
                      output)))
           (list (quote dick) (quote tom) (quote harry) (quote dick))))
         (l (list (list (quote dick) (quote tom) (quote harry) (quote dick)))))
  (if #t
      (let ((f (car args)))
        (if (null? (cdr l))
            (map1 f (car l))
            (if (null? (car l))
                ()
                (cons (apply f (map car l))
                      (apply map (cons f (map cdr l)))))))
      (error "MAP--no list arg: " args)))
==(17, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (args
          (list
           (lambda (input)
             (let ((output (output-proc_5 input state_5)))
               (begin (set! state_5 (next-state-proc_5 input state_5))
                      output)))
           (list (quote dick) (quote tom) (quote harry) (quote dick))))
         (l (list (list (quote dick) (quote tom) (quote harry) (quote dick)))))
  (let ((f (car args)))
    (if (null? (cdr l))
        (map1 f (car l))
        (if (null? (car l))
            ()
            (cons (apply f (map car l)) (apply map (cons f (map cdr l))))))))
==(18, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (l (list (list (quote dick) (quote tom) (quote harry) (quote dick)))))
  (let ((f
         (car
          (list
           (lambda (input)
             (let ((output (output-proc_5 input state_5)))
               (begin (set! state_5 (next-state-proc_5 input state_5))
                      output)))
           (list (quote dick) (quote tom) (quote harry) (quote dick))))))
    (if (null? (cdr l))
        (map1 f (car l))
        (if (null? (car l))
            ()
            (cons (apply f (map car l)) (apply map (cons f (map cdr l))))))))
==(19, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (l (list (list (quote dick) (quote tom) (quote harry) (quote dick)))))
  (let ((f
         (lambda (input)
           (let ((output (output-proc_5 input state_5)))
             (begin (set! state_5 (next-state-proc_5 input state_5))
                    output)))))
    (if (null? (cdr l))
        (map1 f (car l))
        (if (null? (car l))
            ()
            (cons (apply f (map car l)) (apply map (cons f (map cdr l))))))))
==(20, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (l (list (list (quote dick) (quote tom) (quote harry) (quote dick))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  (if (null? (cdr l))
      (map1 f (car l))
      (if (null? (car l))
          ()
          (cons (apply f (map car l)) (apply map (cons f (map cdr l)))))))
==(21, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (l (list (list (quote dick) (quote tom) (quote harry) (quote dick))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  (if (null?
       (cdr (list (list (quote dick) (quote tom) (quote harry) (quote dick)))))
      (map1 f (car l))
      (if (null? (car l))
          ()
          (cons (apply f (map car l)) (apply map (cons f (map cdr l)))))))
==(22, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (l (list (list (quote dick) (quote tom) (quote harry) (quote dick))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  (if (null? (list))
      (map1 f (car l))
      (if (null? (car l))
          ()
          (cons (apply f (map car l)) (apply map (cons f (map cdr l)))))))
==(23, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (l (list (list (quote dick) (quote tom) (quote harry) (quote dick))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  (if (null? ())
      (map1 f (car l))
      (if (null? (car l))
          ()
          (cons (apply f (map car l)) (apply map (cons f (map cdr l)))))))
==(24, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (l (list (list (quote dick) (quote tom) (quote harry) (quote dick))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  (if #t
      (map1 f (car l))
      (if (null? (car l))
          ()
          (cons (apply f (map car l)) (apply map (cons f (map cdr l)))))))
==(25, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (l (list (list (quote dick) (quote tom) (quote harry) (quote dick))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  (map1 f (car l)))
==(26, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (l (list (list (quote dick) (quote tom) (quote harry) (quote dick))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  ((lambda (f l)
     (if (null? l)
         ()
         (cons (f (car l)) (map1 f (cdr l)))))
   f
   (car l)))
==(27, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (l (list (list (quote dick) (quote tom) (quote harry) (quote dick)))))
  ((lambda (f l)
     (if (null? l)
         ()
         (cons (f (car l)) (map1 f (cdr l)))))
   (lambda (input)
     (let ((output (output-proc_5 input state_5)))
       (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
   (car l)))
==(28, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l)))))))
  ((lambda (f l)
     (if (null? l)
         ()
         (cons (f (car l)) (map1 f (cdr l)))))
   (lambda (input)
     (let ((output (output-proc_5 input state_5)))
       (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
   (car (list (list (quote dick) (quote tom) (quote harry) (quote dick))))))
==(29, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l)))))))
  ((lambda (f l)
     (if (null? l)
         ()
         (cons (f (car l)) (map1 f (cdr l)))))
   (lambda (input)
     (let ((output (output-proc_5 input state_5)))
       (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
   (list (quote dick) (quote tom) (quote harry) (quote dick))))
==(30, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l)))))))
  (letrec ((f
            (lambda (input)
              (let ((output (output-proc_5 input state_5)))
                (begin (set! state_5 (next-state-proc_5 input state_5))
                       output)))))
    ((lambda (l)
       (if (null? l)
           ()
           (cons (f (car l)) (map1 f (cdr l)))))
     (list (quote dick) (quote tom) (quote harry) (quote dick)))))
==(31, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  ((lambda (l)
     (if (null? l)
         ()
         (cons (f (car l)) (map1 f (cdr l)))))
   (list (quote dick) (quote tom) (quote harry) (quote dick))))
==(32, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  (letrec ((l (list (quote dick) (quote tom) (quote harry) (quote dick))))
    ((lambda () (if (null? l) () (cons (f (car l)) (map1 f (cdr l))))))))
==(33, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick))))
  ((lambda () (if (null? l) () (cons (f (car l)) (map1 f (cdr l)))))))
==(34, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick))))
  (if (null? l)
      ()
      (cons (f (car l)) (map1 f (cdr l)))))
==(35, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick))))
  (if (null? (list (quote dick) (quote tom) (quote harry) (quote dick)))
      ()
      (cons (f (car l)) (map1 f (cdr l)))))
==(36, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick))))
  (if ()
      ()
      (cons (f (car l)) (map1 f (cdr l)))))
==(37, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick))))
  (cons (f (car l)) (map1 f (cdr l))))
==(38, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick))))
  (cons
   ((lambda (input)
      (let ((output (output-proc_5 input state_5)))
        (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
    (car l))
   (map1 f (cdr l))))
==(39, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick))))
  (cons
   ((lambda (input)
      (let ((output (output-proc_5 input state_5)))
        (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
    (car (list (quote dick) (quote tom) (quote harry) (quote dick))))
   (map1 f (cdr l))))
==(40, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick))))
  (cons
   ((lambda (input)
      (let ((output (output-proc_5 input state_5)))
        (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
    (quote dick))
   (map1 f (cdr l))))
==(41, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick))))
  (cons
   (letrec ((input (quote dick)))
     ((lambda ()
        (let ((output (output-proc_5 input state_5)))
          (begin (set! state_5 (next-state-proc_5 input state_5)) output)))))
   (map1 f (cdr l))))
==(42, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick)))
  (cons
   ((lambda ()
      (let ((output (output-proc_5 input state_5)))
        (begin (set! state_5 (next-state-proc_5 input state_5)) output))))
   (map1 f (cdr l))))
==(43, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick)))
  (cons
   (let ((output (output-proc_5 input state_5)))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(44, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick)))
  (cons
   (let ((output
          ((lambda (voter input-history-pred)
             (if (input-history-pred voter)
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter)))
           input
           state_5)))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(45, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick)))
  (cons
   (let ((output
          ((lambda (voter input-history-pred)
             (if (input-history-pred voter)
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter)))
           (quote dick)
           state_5)))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(46, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick)))
  (cons
   (let ((output
          ((lambda (voter input-history-pred)
             (if (input-history-pred voter)
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter)))
           (quote dick)
           (lambda (future-input)
             (let ((exp15 (eq? future-input input_51)))
               (if exp15
                   exp15
                   (input-history-pred_45 future-input)))))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(47, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick)))
  (cons
   (let ((output
          (letrec ((voter (quote dick)))
            ((lambda (input-history-pred)
               (if (input-history-pred voter)
                   (list (quote nice)
                         (quote ta)
                         (quote see)
                         (quote ya)
                         (quote again)
                         voter)
                   (list (quote pleased)
                         (quote ta)
                         (quote meet)
                         (quote ya)
                         voter)))
             (lambda (future-input)
               (let ((exp15 (eq? future-input input_51)))
                 (if exp15
                     exp15
                     (input-history-pred_45 future-input))))))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(48, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick)))
  (cons
   (let ((output
          ((lambda (input-history-pred)
             (if (input-history-pred voter)
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter)))
           (lambda (future-input)
             (let ((exp15 (eq? future-input input_51)))
               (if exp15
                   exp15
                   (input-history-pred_45 future-input)))))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(49, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick)))
  (cons
   (let ((output
          (letrec ((input-history-pred
                    (lambda (future-input)
                      (let ((exp15 (eq? future-input input_51)))
                        (if exp15
                            exp15
                            (input-history-pred_45 future-input))))))
            ((lambda ()
               (if (input-history-pred voter)
                   (list (quote nice)
                         (quote ta)
                         (quote see)
                         (quote ya)
                         (quote again)
                         voter)
                   (list (quote pleased)
                         (quote ta)
                         (quote meet)
                         (quote ya)
                         voter)))))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(50, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input))))))
  (cons
   (let ((output
          ((lambda ()
             (if (input-history-pred voter)
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(51, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input))))))
  (cons
   (let ((output
          (if (input-history-pred voter)
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(52, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick)))
  (cons
   (let ((output
          (if ((lambda (future-input)
                 (let ((exp15 (eq? future-input input_51)))
                   (if exp15
                       exp15
                       (input-history-pred_45 future-input))))
               voter)
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(53, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick)))
  (cons
   (let ((output
          (if ((lambda (future-input)
                 (let ((exp15 (eq? future-input input_51)))
                   (if exp15
                       exp15
                       (input-history-pred_45 future-input))))
               (quote dick))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(54, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick)))
  (cons
   (let ((output
          (if (letrec ((future-input (quote dick)))
                ((lambda ()
                   (let ((exp15 (eq? future-input input_51)))
                     (if exp15
                         exp15
                         (input-history-pred_45 future-input))))))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(55, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (let ((output
          (if ((lambda ()
                 (let ((exp15 (eq? future-input input_51)))
                   (if exp15
                       exp15
                       (input-history-pred_45 future-input)))))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(56, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (let ((output
          (if (let ((exp15 (eq? future-input input_51)))
                (if exp15
                    exp15
                    (input-history-pred_45 future-input)))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(57, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (let ((output
          (if (let ((exp15 (eq? (quote dick) input_51)))
                (if exp15
                    exp15
                    (input-history-pred_45 future-input)))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(58, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (let ((output
          (if (let ((exp15 (eq? (quote dick) (quote tom))))
                (if exp15
                    exp15
                    (input-history-pred_45 future-input)))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(59, eq?)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (let ((output
          (if (let ((exp15 ()))
                (if exp15
                    exp15
                    (input-history-pred_45 future-input)))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(60, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick))
         (exp15 ()))
  (cons
   (let ((output
          (if (if exp15
                  exp15
                  (input-history-pred_45 future-input))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(61, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick))
         (exp15 ()))
  (cons
   (let ((output
          (if (if ()
                  exp15
                  (input-history-pred_45 future-input))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(62, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (let ((output
          (if (input-history-pred_45 future-input)
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(63, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (let ((output
          (if ((lambda (future-input)
                 (let ((exp15 (eq? future-input input_46)))
                   (if exp15
                       exp15
                       (input-history-pred_39 future-input))))
               future-input)
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(64, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick)))
  (cons
   (let ((output
          (if ((lambda (future-input)
                 (let ((exp15 (eq? future-input input_46)))
                   (if exp15
                       exp15
                       (input-history-pred_39 future-input))))
               (quote dick))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(65, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick)))
  (cons
   (let ((output
          (if (letrec ((future-input (quote dick)))
                ((lambda ()
                   (let ((exp15 (eq? future-input input_46)))
                     (if exp15
                         exp15
                         (input-history-pred_39 future-input))))))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(66, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (let ((output
          (if ((lambda ()
                 (let ((exp15 (eq? future-input input_46)))
                   (if exp15
                       exp15
                       (input-history-pred_39 future-input)))))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(67, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (let ((output
          (if (let ((exp15 (eq? future-input input_46)))
                (if exp15
                    exp15
                    (input-history-pred_39 future-input)))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(68, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (let ((output
          (if (let ((exp15 (eq? (quote dick) input_46)))
                (if exp15
                    exp15
                    (input-history-pred_39 future-input)))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(69, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (let ((output
          (if (let ((exp15 (eq? (quote dick) (quote tom))))
                (if exp15
                    exp15
                    (input-history-pred_39 future-input)))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(70, eq?)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (let ((output
          (if (let ((exp15 ()))
                (if exp15
                    exp15
                    (input-history-pred_39 future-input)))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(71, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick))
         (exp15 ()))
  (cons
   (let ((output
          (if (if exp15
                  exp15
                  (input-history-pred_39 future-input))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(72, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick))
         (exp15 ()))
  (cons
   (let ((output
          (if (if ()
                  exp15
                  (input-history-pred_39 future-input))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(73, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (let ((output
          (if (input-history-pred_39 future-input)
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(74, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (let ((output
          (if ((lambda (input) ()) future-input)
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(75, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick)))
  (cons
   (let ((output
          (if ((lambda (input) ()) (quote dick))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(76, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick)))
  (cons
   (let ((output
          (if (letrec ((input (quote dick)))
                ((lambda () ())))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(77, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick)))
  (cons
   (let ((output
          (if ((lambda () ()))
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(78, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick)))
  (cons
   (let ((output
          (if ()
              (list (quote nice)
                    (quote ta)
                    (quote see)
                    (quote ya)
                    (quote again)
                    voter)
              (list (quote pleased)
                    (quote ta)
                    (quote meet)
                    (quote ya)
                    voter))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(79, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (voter (quote dick)))
  (cons
   (let ((output
          (list (quote pleased) (quote ta) (quote meet) (quote ya) voter)))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(80, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick)))
  (cons
   (let ((output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote dick))))
     (begin (set! state_5 (next-state-proc_5 input state_5)) output))
   (map1 f (cdr l))))
==(81, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote dick))))
  (cons (begin (set! state_5 (next-state-proc_5 input state_5)) output)
        (map1 f (cdr l))))
==(82, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote dick))))
  (cons
   (begin
    (set!
     state_5
     ((lambda (input input-history-pred)
        (lambda (future-input)
          (let ((exp15 (eq? future-input input)))
            (if exp15
                exp15
                (input-history-pred future-input)))))
      input
      state_5))
    output)
   (map1 f (cdr l))))
==(83, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote dick))))
  (cons
   (begin
    (set!
     state_5
     ((lambda (input input-history-pred)
        (lambda (future-input)
          (let ((exp15 (eq? future-input input)))
            (if exp15
                exp15
                (input-history-pred future-input)))))
      (quote dick)
      state_5))
    output)
   (map1 f (cdr l))))
==(84, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote dick))))
  (cons
   (begin
    (set!
     state_5
     ((lambda (input input-history-pred)
        (lambda (future-input)
          (let ((exp15 (eq? future-input input)))
            (if exp15
                exp15
                (input-history-pred future-input)))))
      (quote dick)
      (lambda (future-input)
        (let ((exp15 (eq? future-input input_51)))
          (if exp15
              exp15
              (input-history-pred_45 future-input))))))
    output)
   (map1 f (cdr l))))
==(85, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote dick))))
  (cons
   (begin
    (set!
     state_5
     (letrec ((input (quote dick)))
       ((lambda (input-history-pred)
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
        (lambda (future-input)
          (let ((exp15 (eq? future-input input_51)))
            (if exp15
                exp15
                (input-history-pred_45 future-input)))))))
    output)
   (map1 f (cdr l))))
==(86, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote dick)))
         (input (quote dick)))
  (cons
   (begin
    (set!
     state_5
     ((lambda (input-history-pred)
        (lambda (future-input)
          (let ((exp15 (eq? future-input input)))
            (if exp15
                exp15
                (input-history-pred future-input)))))
      (lambda (future-input)
        (let ((exp15 (eq? future-input input_51)))
          (if exp15
              exp15
              (input-history-pred_45 future-input))))))
    output)
   (map1 f (cdr l))))
==(87, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote dick)))
         (input (quote dick)))
  (cons
   (begin
    (set!
     state_5
     (letrec ((input-history-pred
               (lambda (future-input)
                 (let ((exp15 (eq? future-input input_51)))
                   (if exp15
                       exp15
                       (input-history-pred_45 future-input))))))
       ((lambda ()
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input))))))))
    output)
   (map1 f (cdr l))))
==(88, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote dick)))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input))))))
  (cons
   (begin
    (set!
     state_5
     ((lambda ()
        (lambda (future-input)
          (let ((exp15 (eq? future-input input)))
            (if exp15
                exp15
                (input-history-pred future-input)))))))
    output)
   (map1 f (cdr l))))
==(89, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote dick)))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input))))))
  (cons
   (begin
    (set!
     state_5
     (lambda (future-input)
       (let ((exp15 (eq? future-input input)))
         (if exp15
             exp15
             (input-history-pred future-input)))))
    output)
   (map1 f (cdr l))))
==(90, set!-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote dick)))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input))))))
  (cons (begin (quote set!-done) output) (map1 f (cdr l))))
==(91, begin)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote dick)))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input))))))
  (cons (begin output) (map1 f (cdr l))))
==(92, begin)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote dick)))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input))))))
  (cons output (map1 f (cdr l))))
==(93, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input))))))
  (cons (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
        (map1 f (cdr l))))
==(94, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   ((lambda (f l)
      (if (null? l)
          ()
          (cons (f (car l)) (map1 f (cdr l)))))
    f
    (cdr l))))
==(95, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (l (list (quote dick) (quote tom) (quote harry) (quote dick)))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   ((lambda (f l)
      (if (null? l)
          ()
          (cons (f (car l)) (map1 f (cdr l)))))
    (lambda (input)
      (let ((output (output-proc_5 input state_5)))
        (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
    (cdr l))))
==(96, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   ((lambda (f l)
      (if (null? l)
          ()
          (cons (f (car l)) (map1 f (cdr l)))))
    (lambda (input)
      (let ((output (output-proc_5 input state_5)))
        (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
    (cdr (list (quote dick) (quote tom) (quote harry) (quote dick))))))
==(97, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   ((lambda (f l)
      (if (null? l)
          ()
          (cons (f (car l)) (map1 f (cdr l)))))
    (lambda (input)
      (let ((output (output-proc_5 input state_5)))
        (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
    (list (quote tom) (quote harry) (quote dick)))))
==(98, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (letrec ((f
             (lambda (input)
               (let ((output (output-proc_5 input state_5)))
                 (begin (set! state_5 (next-state-proc_5 input state_5))
                        output)))))
     ((lambda (l)
        (if (null? l)
            ()
            (cons (f (car l)) (map1 f (cdr l)))))
      (list (quote tom) (quote harry) (quote dick))))))
==(99, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   ((lambda (l)
      (if (null? l)
          ()
          (cons (f (car l)) (map1 f (cdr l)))))
    (list (quote tom) (quote harry) (quote dick)))))
==(100, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (letrec ((l (list (quote tom) (quote harry) (quote dick))))
     ((lambda () (if (null? l) () (cons (f (car l)) (map1 f (cdr l)))))))))
==(101, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick))))
  (cons (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
        ((lambda () (if (null? l) () (cons (f (car l)) (map1 f (cdr l))))))))
==(102, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick))))
  (cons (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
        (if (null? l) () (cons (f (car l)) (map1 f (cdr l))))))
==(103, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (if (null? (list (quote tom) (quote harry) (quote dick)))
       ()
       (cons (f (car l)) (map1 f (cdr l))))))
==(104, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick))))
  (cons (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
        (if () () (cons (f (car l)) (map1 f (cdr l))))))
==(105, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick))))
  (cons (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
        (cons (f (car l)) (map1 f (cdr l)))))
==(106, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    ((lambda (input)
       (let ((output (output-proc_5 input state_5)))
         (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
     (car l))
    (map1 f (cdr l)))))
==(107, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    ((lambda (input)
       (let ((output (output-proc_5 input state_5)))
         (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
     (car (list (quote tom) (quote harry) (quote dick))))
    (map1 f (cdr l)))))
==(108, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    ((lambda (input)
       (let ((output (output-proc_5 input state_5)))
         (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
     (quote tom))
    (map1 f (cdr l)))))
==(109, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (letrec ((input (quote tom)))
      ((lambda ()
         (let ((output (output-proc_5 input state_5)))
           (begin (set! state_5 (next-state-proc_5 input state_5)) output)))))
    (map1 f (cdr l)))))
==(110, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    ((lambda ()
       (let ((output (output-proc_5 input_0 state_5)))
         (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))))
    (map1 f (cdr l)))))
==(111, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output (output-proc_5 input_0 state_5)))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(112, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           ((lambda (voter input-history-pred)
              (if (input-history-pred voter)
                  (list (quote nice)
                        (quote ta)
                        (quote see)
                        (quote ya)
                        (quote again)
                        voter)
                  (list (quote pleased)
                        (quote ta)
                        (quote meet)
                        (quote ya)
                        voter)))
            input_0
            state_5)))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(113, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           ((lambda (voter input-history-pred)
              (if (input-history-pred voter)
                  (list (quote nice)
                        (quote ta)
                        (quote see)
                        (quote ya)
                        (quote again)
                        voter)
                  (list (quote pleased)
                        (quote ta)
                        (quote meet)
                        (quote ya)
                        voter)))
            (quote tom)
            state_5)))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(114, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           ((lambda (voter input-history-pred)
              (if (input-history-pred voter)
                  (list (quote nice)
                        (quote ta)
                        (quote see)
                        (quote ya)
                        (quote again)
                        voter)
                  (list (quote pleased)
                        (quote ta)
                        (quote meet)
                        (quote ya)
                        voter)))
            (quote tom)
            (lambda (future-input)
              (let ((exp15 (eq? future-input input)))
                (if exp15
                    exp15
                    (input-history-pred future-input)))))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(115, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (letrec ((voter (quote tom)))
             ((lambda (input-history-pred)
                (if (input-history-pred voter)
                    (list (quote nice)
                          (quote ta)
                          (quote see)
                          (quote ya)
                          (quote again)
                          voter)
                    (list (quote pleased)
                          (quote ta)
                          (quote meet)
                          (quote ya)
                          voter)))
              (lambda (future-input)
                (let ((exp15 (eq? future-input input)))
                  (if exp15
                      exp15
                      (input-history-pred future-input))))))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(116, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           ((lambda (input-history-pred)
              (if (input-history-pred voter)
                  (list (quote nice)
                        (quote ta)
                        (quote see)
                        (quote ya)
                        (quote again)
                        voter)
                  (list (quote pleased)
                        (quote ta)
                        (quote meet)
                        (quote ya)
                        voter)))
            (lambda (future-input)
              (let ((exp15 (eq? future-input input)))
                (if exp15
                    exp15
                    (input-history-pred future-input)))))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(117, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (letrec ((input-history-pred_0
                     (lambda (future-input)
                       (let ((exp15 (eq? future-input input)))
                         (if exp15
                             exp15
                             (input-history-pred future-input))))))
             ((lambda ()
                (if (input-history-pred_0 voter)
                    (list (quote nice)
                          (quote ta)
                          (quote see)
                          (quote ya)
                          (quote again)
                          voter)
                    (list (quote pleased)
                          (quote ta)
                          (quote meet)
                          (quote ya)
                          voter)))))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(118, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           ((lambda ()
              (if (input-history-pred_0 voter)
                  (list (quote nice)
                        (quote ta)
                        (quote see)
                        (quote ya)
                        (quote again)
                        voter)
                  (list (quote pleased)
                        (quote ta)
                        (quote meet)
                        (quote ya)
                        voter))))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(119, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (input-history-pred_0 voter)
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(120, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if ((lambda (future-input)
                  (let ((exp15 (eq? future-input input)))
                    (if exp15
                        exp15
                        (input-history-pred future-input))))
                voter)
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(121, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if ((lambda (future-input)
                  (let ((exp15 (eq? future-input input)))
                    (if exp15
                        exp15
                        (input-history-pred future-input))))
                (quote tom))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(122, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (letrec ((future-input (quote tom)))
                 ((lambda ()
                    (let ((exp15 (eq? future-input input)))
                      (if exp15
                          exp15
                          (input-history-pred future-input))))))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(123, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if ((lambda ()
                  (let ((exp15 (eq? future-input input)))
                    (if exp15
                        exp15
                        (input-history-pred future-input)))))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(124, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (let ((exp15 (eq? future-input input)))
                 (if exp15
                     exp15
                     (input-history-pred future-input)))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(125, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (let ((exp15 (eq? (quote tom) input)))
                 (if exp15
                     exp15
                     (input-history-pred future-input)))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(126, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (let ((exp15 (eq? (quote tom) (quote dick))))
                 (if exp15
                     exp15
                     (input-history-pred future-input)))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(127, eq?)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (let ((exp15 ()))
                 (if exp15
                     exp15
                     (input-history-pred future-input)))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(128, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom))
         (exp15 ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (if exp15
                   exp15
                   (input-history-pred future-input))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(129, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom))
         (exp15 ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (if ()
                   exp15
                   (input-history-pred future-input))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(130, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (input-history-pred future-input)
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(131, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if ((lambda (future-input)
                  (let ((exp15 (eq? future-input input_51)))
                    (if exp15
                        exp15
                        (input-history-pred_45 future-input))))
                future-input)
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(132, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if ((lambda (future-input)
                  (let ((exp15 (eq? future-input input_51)))
                    (if exp15
                        exp15
                        (input-history-pred_45 future-input))))
                (quote tom))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(133, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (letrec ((future-input (quote tom)))
                 ((lambda ()
                    (let ((exp15 (eq? future-input input_51)))
                      (if exp15
                          exp15
                          (input-history-pred_45 future-input))))))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(134, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if ((lambda ()
                  (let ((exp15 (eq? future-input input_51)))
                    (if exp15
                        exp15
                        (input-history-pred_45 future-input)))))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(135, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (let ((exp15 (eq? future-input input_51)))
                 (if exp15
                     exp15
                     (input-history-pred_45 future-input)))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(136, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (let ((exp15 (eq? (quote tom) input_51)))
                 (if exp15
                     exp15
                     (input-history-pred_45 future-input)))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(137, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (let ((exp15 (eq? (quote tom) (quote tom))))
                 (if exp15
                     exp15
                     (input-history-pred_45 future-input)))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(138, eq?)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (let ((exp15 #t))
                 (if exp15
                     exp15
                     (input-history-pred_45 future-input)))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(139, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom))
         (exp15 #t))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (if exp15
                   exp15
                   (input-history-pred_45 future-input))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(140, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (future-input (quote tom))
         (exp15 #t))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if (if #t
                   exp15
                   (input-history-pred_45 future-input))
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(141, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom))
         (exp15 #t))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if exp15
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(142, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (if #t
               (list (quote nice)
                     (quote ta)
                     (quote see)
                     (quote ya)
                     (quote again)
                     voter)
               (list (quote pleased)
                     (quote ta)
                     (quote meet)
                     (quote ya)
                     voter))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(143, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (voter (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (list (quote nice)
                 (quote ta)
                 (quote see)
                 (quote ya)
                 (quote again)
                 voter)))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(144, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (let ((output
           (list (quote nice)
                 (quote ta)
                 (quote see)
                 (quote ya)
                 (quote again)
                 (quote tom))))
      (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output))
    (map1 f (cdr l)))))
==(145, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote tom))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons (begin (set! state_5 (next-state-proc_5 input_0 state_5)) output)
         (map1 f (cdr l)))))
==(146, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote tom))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (begin
     (set!
      state_5
      ((lambda (input input-history-pred)
         (lambda (future-input)
           (let ((exp15 (eq? future-input input)))
             (if exp15
                 exp15
                 (input-history-pred future-input)))))
       input_0
       state_5))
     output)
    (map1 f (cdr l)))))
==(147, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote tom))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (begin
     (set!
      state_5
      ((lambda (input input-history-pred)
         (lambda (future-input)
           (let ((exp15 (eq? future-input input)))
             (if exp15
                 exp15
                 (input-history-pred future-input)))))
       (quote tom)
       state_5))
     output)
    (map1 f (cdr l)))))
==(148, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote tom))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (begin
     (set!
      state_5
      ((lambda (input input-history-pred)
         (lambda (future-input)
           (let ((exp15 (eq? future-input input)))
             (if exp15
                 exp15
                 (input-history-pred future-input)))))
       (quote tom)
       (lambda (future-input)
         (let ((exp15 (eq? future-input input)))
           (if exp15
               exp15
               (input-history-pred future-input))))))
     output)
    (map1 f (cdr l)))))
==(149, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote tom))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (begin
     (set!
      state_5
      (letrec ((input_0 (quote tom)))
        ((lambda (input-history-pred)
           (lambda (future-input)
             (let ((exp15 (eq? future-input input_0)))
               (if exp15
                   exp15
                   (input-history-pred future-input)))))
         (lambda (future-input)
           (let ((exp15 (eq? future-input input)))
             (if exp15
                 exp15
                 (input-history-pred future-input)))))))
     output)
    (map1 f (cdr l)))))
==(150, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote tom)))
         (input_0 (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (begin
     (set!
      state_5
      ((lambda (input-history-pred)
         (lambda (future-input)
           (let ((exp15 (eq? future-input input_0)))
             (if exp15
                 exp15
                 (input-history-pred future-input)))))
       (lambda (future-input)
         (let ((exp15 (eq? future-input input)))
           (if exp15
               exp15
               (input-history-pred future-input))))))
     output)
    (map1 f (cdr l)))))
==(151, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote tom)))
         (input_0 (quote tom)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (begin
     (set!
      state_5
      (letrec ((input-history-pred_0
                (lambda (future-input)
                  (let ((exp15 (eq? future-input input)))
                    (if exp15
                        exp15
                        (input-history-pred future-input))))))
        ((lambda ()
           (lambda (future-input)
             (let ((exp15 (eq? future-input input_0)))
               (if exp15
                   exp15
                   (input-history-pred_0 future-input))))))))
     output)
    (map1 f (cdr l)))))
==(152, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote tom)))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (begin
     (set!
      state_5
      ((lambda ()
         (lambda (future-input)
           (let ((exp15 (eq? future-input input_0)))
             (if exp15
                 exp15
                 (input-history-pred_0 future-input)))))))
     output)
    (map1 f (cdr l)))))
==(153, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote tom)))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (begin
     (set!
      state_5
      (lambda (future-input)
        (let ((exp15 (eq? future-input input_0)))
          (if exp15
              exp15
              (input-history-pred_0 future-input)))))
     output)
    (map1 f (cdr l)))))
==(154, set!-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote tom)))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input))))))
  (cons (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
        (cons (begin (quote set!-done) output) (map1 f (cdr l)))))
==(155, begin)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote tom)))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input))))))
  (cons (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
        (cons (begin output) (map1 f (cdr l)))))
==(156, begin)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote tom)))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input))))))
  (cons (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
        (cons output (map1 f (cdr l)))))
==(157, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (map1 f (cdr l)))))
==(158, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    ((lambda (f l)
       (if (null? l)
           ()
           (cons (f (car l)) (map1 f (cdr l)))))
     f
     (cdr l)))))
==(159, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (l (list (quote tom) (quote harry) (quote dick)))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    ((lambda (f l)
       (if (null? l)
           ()
           (cons (f (car l)) (map1 f (cdr l)))))
     (lambda (input)
       (let ((output (output-proc_5 input state_5)))
         (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
     (cdr l)))))
==(160, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    ((lambda (f l)
       (if (null? l)
           ()
           (cons (f (car l)) (map1 f (cdr l)))))
     (lambda (input)
       (let ((output (output-proc_5 input state_5)))
         (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
     (cdr (list (quote tom) (quote harry) (quote dick)))))))
==(161, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    ((lambda (f l)
       (if (null? l)
           ()
           (cons (f (car l)) (map1 f (cdr l)))))
     (lambda (input)
       (let ((output (output-proc_5 input state_5)))
         (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
     (list (quote harry) (quote dick))))))
==(162, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (letrec ((f
              (lambda (input)
                (let ((output (output-proc_5 input state_5)))
                  (begin (set! state_5 (next-state-proc_5 input state_5))
                         output)))))
      ((lambda (l)
         (if (null? l)
             ()
             (cons (f (car l)) (map1 f (cdr l)))))
       (list (quote harry) (quote dick)))))))
==(163, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    ((lambda (l)
       (if (null? l)
           ()
           (cons (f (car l)) (map1 f (cdr l)))))
     (list (quote harry) (quote dick))))))
==(164, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (letrec ((l (list (quote harry) (quote dick))))
      ((lambda () (if (null? l) () (cons (f (car l)) (map1 f (cdr l))))))))))
==(165, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    ((lambda () (if (null? l) () (cons (f (car l)) (map1 f (cdr l)))))))))
==(166, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (if (null? l)
        ()
        (cons (f (car l)) (map1 f (cdr l)))))))
==(167, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (if (null? (list (quote harry) (quote dick)))
        ()
        (cons (f (car l)) (map1 f (cdr l)))))))
==(168, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (if ()
        ()
        (cons (f (car l)) (map1 f (cdr l)))))))
==(169, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons (f (car l)) (map1 f (cdr l))))))
==(170, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     ((lambda (input)
        (let ((output (output-proc_5 input state_5)))
          (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
      (car l))
     (map1 f (cdr l))))))
==(171, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     ((lambda (input)
        (let ((output (output-proc_5 input state_5)))
          (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
      (car (list (quote harry) (quote dick))))
     (map1 f (cdr l))))))
==(172, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     ((lambda (input)
        (let ((output (output-proc_5 input state_5)))
          (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
      (quote harry))
     (map1 f (cdr l))))))
==(173, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (letrec ((input (quote harry)))
       ((lambda ()
          (let ((output (output-proc_5 input state_5)))
            (begin (set! state_5 (next-state-proc_5 input state_5)) output)))))
     (map1 f (cdr l))))))
==(174, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     ((lambda ()
        (let ((output (output-proc_5 input_1 state_5)))
          (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))))
     (map1 f (cdr l))))))
==(175, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output (output-proc_5 input_1 state_5)))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(176, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            ((lambda (voter input-history-pred)
               (if (input-history-pred voter)
                   (list (quote nice)
                         (quote ta)
                         (quote see)
                         (quote ya)
                         (quote again)
                         voter)
                   (list (quote pleased)
                         (quote ta)
                         (quote meet)
                         (quote ya)
                         voter)))
             input_1
             state_5)))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(177, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            ((lambda (voter input-history-pred)
               (if (input-history-pred voter)
                   (list (quote nice)
                         (quote ta)
                         (quote see)
                         (quote ya)
                         (quote again)
                         voter)
                   (list (quote pleased)
                         (quote ta)
                         (quote meet)
                         (quote ya)
                         voter)))
             (quote harry)
             state_5)))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(178, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            ((lambda (voter input-history-pred)
               (if (input-history-pred voter)
                   (list (quote nice)
                         (quote ta)
                         (quote see)
                         (quote ya)
                         (quote again)
                         voter)
                   (list (quote pleased)
                         (quote ta)
                         (quote meet)
                         (quote ya)
                         voter)))
             (quote harry)
             (lambda (future-input)
               (let ((exp15 (eq? future-input input_0)))
                 (if exp15
                     exp15
                     (input-history-pred_0 future-input)))))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(179, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (letrec ((voter (quote harry)))
              ((lambda (input-history-pred)
                 (if (input-history-pred voter)
                     (list (quote nice)
                           (quote ta)
                           (quote see)
                           (quote ya)
                           (quote again)
                           voter)
                     (list (quote pleased)
                           (quote ta)
                           (quote meet)
                           (quote ya)
                           voter)))
               (lambda (future-input)
                 (let ((exp15 (eq? future-input input_0)))
                   (if exp15
                       exp15
                       (input-history-pred_0 future-input))))))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(180, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            ((lambda (input-history-pred)
               (if (input-history-pred voter)
                   (list (quote nice)
                         (quote ta)
                         (quote see)
                         (quote ya)
                         (quote again)
                         voter)
                   (list (quote pleased)
                         (quote ta)
                         (quote meet)
                         (quote ya)
                         voter)))
             (lambda (future-input)
               (let ((exp15 (eq? future-input input_0)))
                 (if exp15
                     exp15
                     (input-history-pred_0 future-input)))))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(181, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (letrec ((input-history-pred
                      (lambda (future-input)
                        (let ((exp15 (eq? future-input input_0)))
                          (if exp15
                              exp15
                              (input-history-pred_0 future-input))))))
              ((lambda ()
                 (if (input-history-pred voter)
                     (list (quote nice)
                           (quote ta)
                           (quote see)
                           (quote ya)
                           (quote again)
                           voter)
                     (list (quote pleased)
                           (quote ta)
                           (quote meet)
                           (quote ya)
                           voter)))))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(182, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            ((lambda ()
               (if (input-history-pred_1 voter)
                   (list (quote nice)
                         (quote ta)
                         (quote see)
                         (quote ya)
                         (quote again)
                         voter)
                   (list (quote pleased)
                         (quote ta)
                         (quote meet)
                         (quote ya)
                         voter))))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(183, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (input-history-pred_1 voter)
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(184, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ((lambda (future-input)
                   (let ((exp15 (eq? future-input input_0)))
                     (if exp15
                         exp15
                         (input-history-pred_0 future-input))))
                 voter)
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(185, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ((lambda (future-input)
                   (let ((exp15 (eq? future-input input_0)))
                     (if exp15
                         exp15
                         (input-history-pred_0 future-input))))
                 (quote harry))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(186, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (letrec ((future-input (quote harry)))
                  ((lambda ()
                     (let ((exp15 (eq? future-input input_0)))
                       (if exp15
                           exp15
                           (input-history-pred_0 future-input))))))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(187, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ((lambda ()
                   (let ((exp15 (eq? future-input input_0)))
                     (if exp15
                         exp15
                         (input-history-pred_0 future-input)))))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(188, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 (eq? future-input input_0)))
                  (if exp15
                      exp15
                      (input-history-pred_0 future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(189, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 (eq? (quote harry) input_0)))
                  (if exp15
                      exp15
                      (input-history-pred_0 future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(190, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 (eq? (quote harry) (quote tom))))
                  (if exp15
                      exp15
                      (input-history-pred_0 future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(191, eq?)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 ()))
                  (if exp15
                      exp15
                      (input-history-pred_0 future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(192, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry))
         (exp15 ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (if exp15
                    exp15
                    (input-history-pred_0 future-input))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(193, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry))
         (exp15 ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (if ()
                    exp15
                    (input-history-pred_0 future-input))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(194, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (input-history-pred_0 future-input)
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(195, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ((lambda (future-input)
                   (let ((exp15 (eq? future-input input)))
                     (if exp15
                         exp15
                         (input-history-pred future-input))))
                 future-input)
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(196, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ((lambda (future-input)
                   (let ((exp15 (eq? future-input input)))
                     (if exp15
                         exp15
                         (input-history-pred future-input))))
                 (quote harry))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(197, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (letrec ((future-input (quote harry)))
                  ((lambda ()
                     (let ((exp15 (eq? future-input input)))
                       (if exp15
                           exp15
                           (input-history-pred future-input))))))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(198, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ((lambda ()
                   (let ((exp15 (eq? future-input input)))
                     (if exp15
                         exp15
                         (input-history-pred future-input)))))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(199, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 (eq? future-input input)))
                  (if exp15
                      exp15
                      (input-history-pred future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(200, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 (eq? (quote harry) input)))
                  (if exp15
                      exp15
                      (input-history-pred future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(201, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 (eq? (quote harry) (quote dick))))
                  (if exp15
                      exp15
                      (input-history-pred future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(202, eq?)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 ()))
                  (if exp15
                      exp15
                      (input-history-pred future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(203, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry))
         (exp15 ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (if exp15
                    exp15
                    (input-history-pred future-input))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(204, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry))
         (exp15 ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (if ()
                    exp15
                    (input-history-pred future-input))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(205, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (input-history-pred future-input)
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(206, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ((lambda (future-input)
                   (let ((exp15 (eq? future-input input_51)))
                     (if exp15
                         exp15
                         (input-history-pred_45 future-input))))
                 future-input)
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(207, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ((lambda (future-input)
                   (let ((exp15 (eq? future-input input_51)))
                     (if exp15
                         exp15
                         (input-history-pred_45 future-input))))
                 (quote harry))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(208, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (letrec ((future-input (quote harry)))
                  ((lambda ()
                     (let ((exp15 (eq? future-input input_51)))
                       (if exp15
                           exp15
                           (input-history-pred_45 future-input))))))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(209, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ((lambda ()
                   (let ((exp15 (eq? future-input input_51)))
                     (if exp15
                         exp15
                         (input-history-pred_45 future-input)))))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(210, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 (eq? future-input input_51)))
                  (if exp15
                      exp15
                      (input-history-pred_45 future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(211, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 (eq? (quote harry) input_51)))
                  (if exp15
                      exp15
                      (input-history-pred_45 future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(212, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 (eq? (quote harry) (quote tom))))
                  (if exp15
                      exp15
                      (input-history-pred_45 future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(213, eq?)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 ()))
                  (if exp15
                      exp15
                      (input-history-pred_45 future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(214, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry))
         (exp15 ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (if exp15
                    exp15
                    (input-history-pred_45 future-input))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(215, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry))
         (exp15 ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (if ()
                    exp15
                    (input-history-pred_45 future-input))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(216, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (input-history-pred_45 future-input)
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(217, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ((lambda (future-input)
                   (let ((exp15 (eq? future-input input_46)))
                     (if exp15
                         exp15
                         (input-history-pred_39 future-input))))
                 future-input)
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(218, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ((lambda (future-input)
                   (let ((exp15 (eq? future-input input_46)))
                     (if exp15
                         exp15
                         (input-history-pred_39 future-input))))
                 (quote harry))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(219, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (letrec ((future-input (quote harry)))
                  ((lambda ()
                     (let ((exp15 (eq? future-input input_46)))
                       (if exp15
                           exp15
                           (input-history-pred_39 future-input))))))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(220, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ((lambda ()
                   (let ((exp15 (eq? future-input input_46)))
                     (if exp15
                         exp15
                         (input-history-pred_39 future-input)))))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(221, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 (eq? future-input input_46)))
                  (if exp15
                      exp15
                      (input-history-pred_39 future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(222, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 (eq? (quote harry) input_46)))
                  (if exp15
                      exp15
                      (input-history-pred_39 future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(223, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 (eq? (quote harry) (quote tom))))
                  (if exp15
                      exp15
                      (input-history-pred_39 future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(224, eq?)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (let ((exp15 ()))
                  (if exp15
                      exp15
                      (input-history-pred_39 future-input)))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(225, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry))
         (exp15 ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (if exp15
                    exp15
                    (input-history-pred_39 future-input))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(226, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry))
         (exp15 ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (if ()
                    exp15
                    (input-history-pred_39 future-input))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(227, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (input-history-pred_39 future-input)
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(228, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry))
         (future-input (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ((lambda (input) ()) future-input)
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(229, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ((lambda (input) ()) (quote harry))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(230, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if (letrec ((input (quote harry)))
                  ((lambda () ())))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(231, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ((lambda () ()))
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(232, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (if ()
                (list (quote nice)
                      (quote ta)
                      (quote see)
                      (quote ya)
                      (quote again)
                      voter)
                (list (quote pleased)
                      (quote ta)
                      (quote meet)
                      (quote ya)
                      voter))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(233, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (voter (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (list (quote pleased) (quote ta) (quote meet) (quote ya) voter)))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(234, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (let ((output
            (list (quote pleased)
                  (quote ta)
                  (quote meet)
                  (quote ya)
                  (quote harry))))
       (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output))
     (map1 f (cdr l))))))
==(235, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote harry))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons (begin (set! state_5 (next-state-proc_5 input_1 state_5)) output)
          (map1 f (cdr l))))))
==(236, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote harry))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (begin
      (set!
       state_5
       ((lambda (input input-history-pred)
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
        input_1
        state_5))
      output)
     (map1 f (cdr l))))))
==(237, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote harry))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (begin
      (set!
       state_5
       ((lambda (input input-history-pred)
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
        (quote harry)
        state_5))
      output)
     (map1 f (cdr l))))))
==(238, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote harry))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (begin
      (set!
       state_5
       ((lambda (input input-history-pred)
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
        (quote harry)
        (lambda (future-input)
          (let ((exp15 (eq? future-input input_0)))
            (if exp15
                exp15
                (input-history-pred_0 future-input))))))
      output)
     (map1 f (cdr l))))))
==(239, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote harry))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (begin
      (set!
       state_5
       (letrec ((input (quote harry)))
         ((lambda (input-history-pred)
            (lambda (future-input)
              (let ((exp15 (eq? future-input input)))
                (if exp15
                    exp15
                    (input-history-pred future-input)))))
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))))
      output)
     (map1 f (cdr l))))))
==(240, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote harry)))
         (input_1 (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (begin
      (set!
       state_5
       ((lambda (input-history-pred)
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
        (lambda (future-input)
          (let ((exp15 (eq? future-input input_0)))
            (if exp15
                exp15
                (input-history-pred_0 future-input))))))
      output)
     (map1 f (cdr l))))))
==(241, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote harry)))
         (input_1 (quote harry)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (begin
      (set!
       state_5
       (letrec ((input-history-pred
                 (lambda (future-input)
                   (let ((exp15 (eq? future-input input_0)))
                     (if exp15
                         exp15
                         (input-history-pred_0 future-input))))))
         ((lambda ()
            (lambda (future-input)
              (let ((exp15 (eq? future-input input_1)))
                (if exp15
                    exp15
                    (input-history-pred future-input))))))))
      output)
     (map1 f (cdr l))))))
==(242, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote harry)))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (begin
      (set!
       state_5
       ((lambda ()
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input)))))))
      output)
     (map1 f (cdr l))))))
==(243, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote harry)))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (begin
      (set!
       state_5
       (lambda (future-input)
         (let ((exp15 (eq? future-input input_1)))
           (if exp15
               exp15
               (input-history-pred_1 future-input)))))
      output)
     (map1 f (cdr l))))))
==(244, set!-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote harry)))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons (begin (quote set!-done) output) (map1 f (cdr l))))))
==(245, begin)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote harry)))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons (begin output) (map1 f (cdr l))))))
==(246, begin)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (output
          (list (quote pleased)
                (quote ta)
                (quote meet)
                (quote ya)
                (quote harry)))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons output (map1 f (cdr l))))))
==(247, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (map1 f (cdr l))))))
==(248, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     ((lambda (f l)
        (if (null? l)
            ()
            (cons (f (car l)) (map1 f (cdr l)))))
      f
      (cdr l))))))
==(249, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (l (list (quote harry) (quote dick)))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     ((lambda (f l)
        (if (null? l)
            ()
            (cons (f (car l)) (map1 f (cdr l)))))
      (lambda (input)
        (let ((output (output-proc_5 input state_5)))
          (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
      (cdr l))))))
==(250, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     ((lambda (f l)
        (if (null? l)
            ()
            (cons (f (car l)) (map1 f (cdr l)))))
      (lambda (input)
        (let ((output (output-proc_5 input state_5)))
          (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
      (cdr (list (quote harry) (quote dick))))))))
==(251, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     ((lambda (f l)
        (if (null? l)
            ()
            (cons (f (car l)) (map1 f (cdr l)))))
      (lambda (input)
        (let ((output (output-proc_5 input state_5)))
          (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
      (list (quote dick)))))))
==(252, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (letrec ((f
               (lambda (input)
                 (let ((output (output-proc_5 input state_5)))
                   (begin (set! state_5 (next-state-proc_5 input state_5))
                          output)))))
       ((lambda (l)
          (if (null? l)
              ()
              (cons (f (car l)) (map1 f (cdr l)))))
        (list (quote dick))))))))
==(253, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     ((lambda (l)
        (if (null? l)
            ()
            (cons (f (car l)) (map1 f (cdr l)))))
      (list (quote dick)))))))
==(254, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (letrec ((l (list (quote dick))))
       ((lambda () (if (null? l) () (cons (f (car l)) (map1 f (cdr l)))))))))))
==(255, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     ((lambda () (if (null? l) () (cons (f (car l)) (map1 f (cdr l))))))))))
==(256, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (if (null? l)
         ()
         (cons (f (car l)) (map1 f (cdr l))))))))
==(257, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (if (null? (list (quote dick)))
         ()
         (cons (f (car l)) (map1 f (cdr l))))))))
==(258, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (if ()
         ()
         (cons (f (car l)) (map1 f (cdr l))))))))
==(259, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons (f (car l)) (map1 f (cdr l)))))))
==(260, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      ((lambda (input)
         (let ((output (output-proc_5 input state_5)))
           (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
       (car l))
      (map1 f (cdr l)))))))
==(261, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      ((lambda (input)
         (let ((output (output-proc_5 input state_5)))
           (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
       (car (list (quote dick))))
      (map1 f (cdr l)))))))
==(262, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      ((lambda (input)
         (let ((output (output-proc_5 input state_5)))
           (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
       (quote dick))
      (map1 f (cdr l)))))))
==(263, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (letrec ((input (quote dick)))
        ((lambda ()
           (let ((output (output-proc_5 input state_5)))
             (begin (set! state_5 (next-state-proc_5 input state_5))
                    output)))))
      (map1 f (cdr l)))))))
==(264, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      ((lambda ()
         (let ((output (output-proc_5 input_2 state_5)))
           (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))))
      (map1 f (cdr l)))))))
==(265, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output (output-proc_5 input_2 state_5)))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(266, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             ((lambda (voter input-history-pred)
                (if (input-history-pred voter)
                    (list (quote nice)
                          (quote ta)
                          (quote see)
                          (quote ya)
                          (quote again)
                          voter)
                    (list (quote pleased)
                          (quote ta)
                          (quote meet)
                          (quote ya)
                          voter)))
              input_2
              state_5)))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(267, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             ((lambda (voter input-history-pred)
                (if (input-history-pred voter)
                    (list (quote nice)
                          (quote ta)
                          (quote see)
                          (quote ya)
                          (quote again)
                          voter)
                    (list (quote pleased)
                          (quote ta)
                          (quote meet)
                          (quote ya)
                          voter)))
              (quote dick)
              state_5)))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(268, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             ((lambda (voter input-history-pred)
                (if (input-history-pred voter)
                    (list (quote nice)
                          (quote ta)
                          (quote see)
                          (quote ya)
                          (quote again)
                          voter)
                    (list (quote pleased)
                          (quote ta)
                          (quote meet)
                          (quote ya)
                          voter)))
              (quote dick)
              (lambda (future-input)
                (let ((exp15 (eq? future-input input_1)))
                  (if exp15
                      exp15
                      (input-history-pred_1 future-input)))))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(269, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (letrec ((voter (quote dick)))
               ((lambda (input-history-pred)
                  (if (input-history-pred voter)
                      (list (quote nice)
                            (quote ta)
                            (quote see)
                            (quote ya)
                            (quote again)
                            voter)
                      (list (quote pleased)
                            (quote ta)
                            (quote meet)
                            (quote ya)
                            voter)))
                (lambda (future-input)
                  (let ((exp15 (eq? future-input input_1)))
                    (if exp15
                        exp15
                        (input-history-pred_1 future-input))))))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(270, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             ((lambda (input-history-pred)
                (if (input-history-pred voter)
                    (list (quote nice)
                          (quote ta)
                          (quote see)
                          (quote ya)
                          (quote again)
                          voter)
                    (list (quote pleased)
                          (quote ta)
                          (quote meet)
                          (quote ya)
                          voter)))
              (lambda (future-input)
                (let ((exp15 (eq? future-input input_1)))
                  (if exp15
                      exp15
                      (input-history-pred_1 future-input)))))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(271, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (letrec ((input-history-pred
                       (lambda (future-input)
                         (let ((exp15 (eq? future-input input_1)))
                           (if exp15
                               exp15
                               (input-history-pred_1 future-input))))))
               ((lambda ()
                  (if (input-history-pred voter)
                      (list (quote nice)
                            (quote ta)
                            (quote see)
                            (quote ya)
                            (quote again)
                            voter)
                      (list (quote pleased)
                            (quote ta)
                            (quote meet)
                            (quote ya)
                            voter)))))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(272, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             ((lambda ()
                (if (input-history-pred_2 voter)
                    (list (quote nice)
                          (quote ta)
                          (quote see)
                          (quote ya)
                          (quote again)
                          voter)
                    (list (quote pleased)
                          (quote ta)
                          (quote meet)
                          (quote ya)
                          voter))))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(273, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (input-history-pred_2 voter)
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(274, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if ((lambda (future-input)
                    (let ((exp15 (eq? future-input input_1)))
                      (if exp15
                          exp15
                          (input-history-pred_1 future-input))))
                  voter)
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(275, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if ((lambda (future-input)
                    (let ((exp15 (eq? future-input input_1)))
                      (if exp15
                          exp15
                          (input-history-pred_1 future-input))))
                  (quote dick))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(276, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (letrec ((future-input (quote dick)))
                   ((lambda ()
                      (let ((exp15 (eq? future-input input_1)))
                        (if exp15
                            exp15
                            (input-history-pred_1 future-input))))))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(277, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if ((lambda ()
                    (let ((exp15 (eq? future-input input_1)))
                      (if exp15
                          exp15
                          (input-history-pred_1 future-input)))))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(278, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (let ((exp15 (eq? future-input input_1)))
                   (if exp15
                       exp15
                       (input-history-pred_1 future-input)))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(279, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (let ((exp15 (eq? (quote dick) input_1)))
                   (if exp15
                       exp15
                       (input-history-pred_1 future-input)))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(280, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (let ((exp15 (eq? (quote dick) (quote harry))))
                   (if exp15
                       exp15
                       (input-history-pred_1 future-input)))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(281, eq?)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (let ((exp15 ()))
                   (if exp15
                       exp15
                       (input-history-pred_1 future-input)))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(282, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick))
         (exp15 ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (if exp15
                     exp15
                     (input-history-pred_1 future-input))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(283, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick))
         (exp15 ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (if ()
                     exp15
                     (input-history-pred_1 future-input))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(284, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (input-history-pred_1 future-input)
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(285, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if ((lambda (future-input)
                    (let ((exp15 (eq? future-input input_0)))
                      (if exp15
                          exp15
                          (input-history-pred_0 future-input))))
                  future-input)
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(286, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if ((lambda (future-input)
                    (let ((exp15 (eq? future-input input_0)))
                      (if exp15
                          exp15
                          (input-history-pred_0 future-input))))
                  (quote dick))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(287, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (letrec ((future-input (quote dick)))
                   ((lambda ()
                      (let ((exp15 (eq? future-input input_0)))
                        (if exp15
                            exp15
                            (input-history-pred_0 future-input))))))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(288, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if ((lambda ()
                    (let ((exp15 (eq? future-input input_0)))
                      (if exp15
                          exp15
                          (input-history-pred_0 future-input)))))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(289, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (let ((exp15 (eq? future-input input_0)))
                   (if exp15
                       exp15
                       (input-history-pred_0 future-input)))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(290, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (let ((exp15 (eq? (quote dick) input_0)))
                   (if exp15
                       exp15
                       (input-history-pred_0 future-input)))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(291, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (let ((exp15 (eq? (quote dick) (quote tom))))
                   (if exp15
                       exp15
                       (input-history-pred_0 future-input)))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(292, eq?)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (let ((exp15 ()))
                   (if exp15
                       exp15
                       (input-history-pred_0 future-input)))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(293, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick))
         (exp15 ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (if exp15
                     exp15
                     (input-history-pred_0 future-input))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(294, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick))
         (exp15 ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (if ()
                     exp15
                     (input-history-pred_0 future-input))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(295, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (input-history-pred_0 future-input)
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(296, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if ((lambda (future-input)
                    (let ((exp15 (eq? future-input input)))
                      (if exp15
                          exp15
                          (input-history-pred future-input))))
                  future-input)
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(297, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if ((lambda (future-input)
                    (let ((exp15 (eq? future-input input)))
                      (if exp15
                          exp15
                          (input-history-pred future-input))))
                  (quote dick))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(298, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (letrec ((future-input (quote dick)))
                   ((lambda ()
                      (let ((exp15 (eq? future-input input)))
                        (if exp15
                            exp15
                            (input-history-pred future-input))))))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(299, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if ((lambda ()
                    (let ((exp15 (eq? future-input input)))
                      (if exp15
                          exp15
                          (input-history-pred future-input)))))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(300, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (let ((exp15 (eq? future-input input)))
                   (if exp15
                       exp15
                       (input-history-pred future-input)))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(301, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (let ((exp15 (eq? (quote dick) input)))
                   (if exp15
                       exp15
                       (input-history-pred future-input)))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(302, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (let ((exp15 (eq? (quote dick) (quote dick))))
                   (if exp15
                       exp15
                       (input-history-pred future-input)))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(303, eq?)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (let ((exp15 #t))
                   (if exp15
                       exp15
                       (input-history-pred future-input)))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(304, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick))
         (exp15 #t))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (if exp15
                     exp15
                     (input-history-pred future-input))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(305, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (future-input (quote dick))
         (exp15 #t))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if (if #t
                     exp15
                     (input-history-pred future-input))
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(306, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick))
         (exp15 #t))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if exp15
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(307, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (if #t
                 (list (quote nice)
                       (quote ta)
                       (quote see)
                       (quote ya)
                       (quote again)
                       voter)
                 (list (quote pleased)
                       (quote ta)
                       (quote meet)
                       (quote ya)
                       voter))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(308, if)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (voter (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (list (quote nice)
                   (quote ta)
                   (quote see)
                   (quote ya)
                   (quote again)
                   voter)))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(309, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (let ((output
             (list (quote nice)
                   (quote ta)
                   (quote see)
                   (quote ya)
                   (quote again)
                   (quote dick))))
        (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output))
      (map1 f (cdr l)))))))
==(310, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons (begin (set! state_5 (next-state-proc_5 input_2 state_5)) output)
           (map1 f (cdr l)))))))
==(311, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (begin
       (set!
        state_5
        ((lambda (input input-history-pred)
           (lambda (future-input)
             (let ((exp15 (eq? future-input input)))
               (if exp15
                   exp15
                   (input-history-pred future-input)))))
         input_2
         state_5))
       output)
      (map1 f (cdr l)))))))
==(312, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (begin
       (set!
        state_5
        ((lambda (input input-history-pred)
           (lambda (future-input)
             (let ((exp15 (eq? future-input input)))
               (if exp15
                   exp15
                   (input-history-pred future-input)))))
         (quote dick)
         state_5))
       output)
      (map1 f (cdr l)))))))
==(313, instantiate-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (begin
       (set!
        state_5
        ((lambda (input input-history-pred)
           (lambda (future-input)
             (let ((exp15 (eq? future-input input)))
               (if exp15
                   exp15
                   (input-history-pred future-input)))))
         (quote dick)
         (lambda (future-input)
           (let ((exp15 (eq? future-input input_1)))
             (if exp15
                 exp15
                 (input-history-pred_1 future-input))))))
       output)
      (map1 f (cdr l)))))))
==(314, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote dick))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (begin
       (set!
        state_5
        (letrec ((input (quote dick)))
          ((lambda (input-history-pred)
             (lambda (future-input)
               (let ((exp15 (eq? future-input input)))
                 (if exp15
                     exp15
                     (input-history-pred future-input)))))
           (lambda (future-input)
             (let ((exp15 (eq? future-input input_1)))
               (if exp15
                   exp15
                   (input-history-pred_1 future-input)))))))
       output)
      (map1 f (cdr l)))))))
==(315, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote dick)))
         (input_2 (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (begin
       (set!
        state_5
        ((lambda (input-history-pred)
           (lambda (future-input)
             (let ((exp15 (eq? future-input input_2)))
               (if exp15
                   exp15
                   (input-history-pred future-input)))))
         (lambda (future-input)
           (let ((exp15 (eq? future-input input_1)))
             (if exp15
                 exp15
                 (input-history-pred_1 future-input))))))
       output)
      (map1 f (cdr l)))))))
==(316, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote dick)))
         (input_2 (quote dick)))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (begin
       (set!
        state_5
        (letrec ((input-history-pred
                  (lambda (future-input)
                    (let ((exp15 (eq? future-input input_1)))
                      (if exp15
                          exp15
                          (input-history-pred_1 future-input))))))
          ((lambda ()
             (lambda (future-input)
               (let ((exp15 (eq? future-input input_2)))
                 (if exp15
                     exp15
                     (input-history-pred future-input))))))))
       output)
      (map1 f (cdr l)))))))
==(317, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote dick)))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (begin
       (set!
        state_5
        ((lambda ()
           (lambda (future-input)
             (let ((exp15 (eq? future-input input_2)))
               (if exp15
                   exp15
                   (input-history-pred_2 future-input)))))))
       output)
      (map1 f (cdr l)))))))
==(318, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote dick)))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (begin
       (set!
        state_5
        (lambda (future-input)
          (let ((exp15 (eq? future-input input_2)))
            (if exp15
                exp15
                (input-history-pred_2 future-input)))))
       output)
      (map1 f (cdr l)))))))
==(319, set!-global)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote dick)))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons (begin (quote set!-done) output) (map1 f (cdr l)))))))
==(320, begin)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote dick)))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons (begin output) (map1 f (cdr l)))))))
==(321, begin)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (output
          (list (quote nice)
                (quote ta)
                (quote see)
                (quote ya)
                (quote again)
                (quote dick)))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons output (map1 f (cdr l)))))))
==(322, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (list (quote nice)
            (quote ta)
            (quote see)
            (quote ya)
            (quote again)
            (quote dick))
      (map1 f (cdr l)))))))
==(323, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (list (quote nice)
            (quote ta)
            (quote see)
            (quote ya)
            (quote again)
            (quote dick))
      ((lambda (f l)
         (if (null? l)
             ()
             (cons (f (car l)) (map1 f (cdr l)))))
       f
       (cdr l)))))))
==(324, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (l (list (quote dick)))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (list (quote nice)
            (quote ta)
            (quote see)
            (quote ya)
            (quote again)
            (quote dick))
      ((lambda (f l)
         (if (null? l)
             ()
             (cons (f (car l)) (map1 f (cdr l)))))
       (lambda (input)
         (let ((output (output-proc_5 input state_5)))
           (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
       (cdr l)))))))
==(325, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (list (quote nice)
            (quote ta)
            (quote see)
            (quote ya)
            (quote again)
            (quote dick))
      ((lambda (f l)
         (if (null? l)
             ()
             (cons (f (car l)) (map1 f (cdr l)))))
       (lambda (input)
         (let ((output (output-proc_5 input state_5)))
           (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
       (cdr (list (quote dick)))))))))
==(326, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (list (quote nice)
            (quote ta)
            (quote see)
            (quote ya)
            (quote again)
            (quote dick))
      ((lambda (f l)
         (if (null? l)
             ()
             (cons (f (car l)) (map1 f (cdr l)))))
       (lambda (input)
         (let ((output (output-proc_5 input state_5)))
           (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
       (list)))))))
==(327, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (list (quote nice)
            (quote ta)
            (quote see)
            (quote ya)
            (quote again)
            (quote dick))
      ((lambda (f l)
         (if (null? l)
             ()
             (cons (f (car l)) (map1 f (cdr l)))))
       (lambda (input)
         (let ((output (output-proc_5 input state_5)))
           (begin (set! state_5 (next-state-proc_5 input state_5)) output)))
       ()))))))
==(328, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (list (quote nice)
            (quote ta)
            (quote see)
            (quote ya)
            (quote again)
            (quote dick))
      (letrec ((f
                (lambda (input)
                  (let ((output (output-proc_5 input state_5)))
                    (begin (set! state_5 (next-state-proc_5 input state_5))
                           output)))))
        ((lambda (l)
           (if (null? l)
               ()
               (cons (f (car l)) (map1 f (cdr l)))))
         ())))))))
==(329, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (list (quote nice)
            (quote ta)
            (quote see)
            (quote ya)
            (quote again)
            (quote dick))
      ((lambda (l)
         (if (null? l)
             ()
             (cons (f (car l)) (map1 f (cdr l)))))
       ()))))))
==(330, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output)))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (list (quote nice)
            (quote ta)
            (quote see)
            (quote ya)
            (quote again)
            (quote dick))
      (letrec ((l ()))
        ((lambda ()
           (if (null? l)
               ()
               (cons (f (car l)) (map1 f (cdr l))))))))))))
==(331, lets)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (list (quote nice)
            (quote ta)
            (quote see)
            (quote ya)
            (quote again)
            (quote dick))
      ((lambda () (if (null? l) () (cons (f (car l)) (map1 f (cdr l)))))))))))
==(332, lambda)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (list (quote nice)
            (quote ta)
            (quote see)
            (quote ya)
            (quote again)
            (quote dick))
      (if (null? l)
          ()
          (cons (f (car l)) (map1 f (cdr l)))))))))
==(333, instantiate)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (list (quote nice)
            (quote ta)
            (quote see)
            (quote ya)
            (quote again)
            (quote dick))
      (if (null? ())
          ()
          (cons (f (car l)) (map1 f (cdr l)))))))))
==(334, lists)==> 
(letrec ((map1
          (lambda (f l)
            (if (null? l)
                ()
                (cons (f (car l)) (map1 f (cdr l))))))
         (input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input)))))
         (f
          (lambda (input)
            (let ((output (output-proc_5 input state_5)))
              (begin (set! state_5 (next-state-proc_5 input state_5))
                     output))))
         (l ()))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (list (quote nice)
            (quote ta)
            (quote see)
            (quote ya)
            (quote again)
            (quote dick))
      (if #t
          ()
          (cons (f (car l)) (map1 f (cdr l)))))))))
==(335, if)==> 
(letrec ((input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (cons
      (list (quote nice)
            (quote ta)
            (quote see)
            (quote ya)
            (quote again)
            (quote dick))
      ())))))
==(336, lists)==> 
(letrec ((input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (cons
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (list
      (list (quote nice)
            (quote ta)
            (quote see)
            (quote ya)
            (quote again)
            (quote dick)))))))
==(337, lists)==> 
(letrec ((input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (cons
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (list
     (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
     (list (quote nice)
           (quote ta)
           (quote see)
           (quote ya)
           (quote again)
           (quote dick))))))
==(338, lists)==> 
(letrec ((input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (cons
   (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote dick))
   (list
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote tom))
    (list (quote pleased) (quote ta) (quote meet) (quote ya) (quote harry))
    (list (quote nice)
          (quote ta)
          (quote see)
          (quote ya)
          (quote again)
          (quote dick)))))
==(339, lists)==> 
(letrec ((input (quote dick))
         (input-history-pred
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_51)))
              (if exp15
                  exp15
                  (input-history-pred_45 future-input)))))
         (input_0 (quote tom))
         (input-history-pred_0
          (lambda (future-input)
            (let ((exp15 (eq? future-input input)))
              (if exp15
                  exp15
                  (input-history-pred future-input)))))
         (input_1 (quote harry))
         (input-history-pred_1
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_0)))
              (if exp15
                  exp15
                  (input-history-pred_0 future-input)))))
         (input_2 (quote dick))
         (input-history-pred_2
          (lambda (future-input)
            (let ((exp15 (eq? future-input input_1)))
              (if exp15
                  exp15
                  (input-history-pred_1 future-input))))))
  (list
   (list (