;;; $Id: yodaize-mod.scm,v 1.1 2006/01/04 07:00:55 leavens Exp $

(module yodaize-mod (lib "typedscm.ss" "typedscm")

  (provide yodaize)
  
  ;; (yodaize '(you will study)) ==> (study you will)
  ;; (yodaize '(you must eat)) ==> (eat you must)
  (define yodaize
    (lambda (ls)
      (list (third ls) (first ls) (second ls))))
  (define first (lambda (ls) (car ls)))
  (define second (lambda (ls) (cadr ls)))
  (define third (lambda (ls) (caddr ls)))

) ;; end module