; Experiments with functions that have functional parameters
; Note the use of (funcall function arguments) since (function arguments)
; does not accept a parameter as a function...
(define (crusher x) (pickard 'riker x))
(define (laforge fun x) (funcall fun (funcall fun x )))
(define (pickard fun x) (* x (funcall fun x )))
(define (riker x) (pickard 'troi x))
(define (troi x) (* x x))
(define (worf x) (laforge 'troi x))