#! perl -w
die "no name" unless defined $ARGV[0];
$_=$ARGV[0];
die "not dash" unless /([^-]*)-/;
print $1