print if !/cr\d$/ && $_ = (split)[3];