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