chickadee » aima » right?

right? squareprocedure

Is this the right square?

square
The square to be righted
(define right? (cute = <> 1))