}
if( $create =~ /^[ktn ce]*$/ ) {
local( $_ )= $create;
my( $k, $t, $n, $c, $e )= ( scalar(/k/i), scalar(/t/i),
scalar(/n/i), scalar(/c/i), scalar(/e/i) );
if( 1 < $k + $t + $n ) {
}
if( $create =~ /^[ktn ce]*$/ ) {
local( $_ )= $create;
my( $k, $t, $n, $c, $e )= ( scalar(/k/i), scalar(/t/i),
scalar(/n/i), scalar(/c/i), scalar(/e/i) );
if( 1 < $k + $t + $n ) {