put-on (object support)

a boolean

Move block object onto block support.

Prints the steps taken and returns T or prints an error message and returns nil.