; This file was automatically generated by mcs 

(load "lists.sch")

(define (nulR)
  (let ((s (open_col_session "localhost")))
     (let ((r (remote_eval 'nul user-initial-environment s)))
       (begin (close_col_session s) r))))

(define (newR x2 x1)
  (let ((s (open_col_session "localhost")))
     (let ((r (remote_eval (list 'new x2 x1) user-initial-environment s)))
       (begin (close_col_session s) r))))

(define (sqrR x1)
  (let ((s (open_col_session "localhost")))
     (let ((r (remote_eval (list 'sqr x1) user-initial-environment s)))
       (begin (close_col_session s) r))))

(define (plusR x2 x1)
  (let ((s (open_col_session "localhost")))
     (let ((r (remote_eval (list 'plus x2 x1) user-initial-environment s)))
       (begin (close_col_session s) r))))

(define (timesR x2 x1)
  (let ((s (open_col_session "localhost")))
     (let ((r (remote_eval (list 'times x2 x1) user-initial-environment s)))
       (begin (close_col_session s) r))))

(define (sizeR x1)
  (let ((s (open_col_session "localhost")))
     (let ((r (remote_eval (list 'size x1) user-initial-environment s)))
       (begin (close_col_session s) r))))

(define (mapfnR x2 x1)
  (let ((s (open_col_session "localhost")))
     (let ((r (remote_eval (list 'mapfn x2 x1) user-initial-environment s)))
       (begin (close_col_session s) r))))

(define (foldR x2 x1)
  (let ((s (open_col_session "localhost")))
     (let ((r (remote_eval (list 'fold x2 x1) user-initial-environment s)))
       (begin (close_col_session s) r))))