; This file was automatically generated by mcs 

(load "circles.sch")

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

(define (distR x4 x3 x2 x1)
  (let ((s (open_col_session "localhost")))
     (let ((r (remote_eval (list 'dist x4 x3 x2 x1) user-initial-environment s)))
       (begin (close_col_session s) r))))

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

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