puts [fixsmall result a 1] if { [isdraw result] } { puts [checkshape result] }