--- symmetry.pl	2007/08/31 14:23:21	10
+++ symmetry.pl	2007/08/31 14:28:27	11
@@ -247,5 +247,8 @@
 print ">>> RESULTS:\n";
 foreach my $r ( @shapes_found ) {
 	printf "%2d,%-2d len: %-4d directions: %s %s\n",
-	$r->{x}, $r->{y}, $r->{len}, $r->{directions}, is_symmetric($r->{directions}) ? 'symetric' : '';
+	$r->{x}, $r->{y}, $r->{len},
+	is_symmetric($r->{directions}) ? 'OK' : '!!',
+	$r->{directions},
+	;
 }