(define (flip vect horizintal? vertical?)
  (if horizintal? (if vertical?
		      (flip-h (flip-v vect))
		      (flip-h vect))
      (flip-h vect)
      vect))