sub cis {
    my $first = shift;
    my $i = length $first;
    for (@_) { 
        if ((substr $_, 0, $i) eq (substr $first, 0, $i))
             {next}
        else {$i--; redo}
    }
    substr $first, 0, $i;
}