let print_shape i =
  if i < 0 then print_char mshapes.(-i)
  else print_char ushapes.(i)