#!/usr/bin/perl
sub redundant {
'I' =~ /I/ ? return 1 : return 1;
}
&redundant ? &redundant : &redundant;
sub redundant {
'I' =~ /I/ ? return 1 : return 1;
}
&redundant ? &redundant : &redundant;
