ulong -a is_rectangle (p_polygon _)              ulong -a is_accessible (p_polygon _)
{                                                {
  ...                                              ...
}                                                }

ulong -a is_square (p_polygon _)                 ulong -a is_visible (p_polygon _)
{                                                {
  ...                                              ...
}                                                }
