--- symmetry.pl	2007/08/31 14:23:21	10
+++ symmetry.pl	2007/08/31 15:17:11	12
@@ -178,7 +178,7 @@
 
 	if ( $usage > 4 ) {
 		warn "SKIPPED, usage > 4\n";
-		return;
+		return 0;
 	}
 
 	while( 1 ) {
@@ -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},
+	;
 }