#!/lang/perl
while ($_=<STDIN>) {
	chomp;
	next unless -l $_;
	$B=readlink($_);
	if (! -e $B) { print "$_\n"; }
}