cat(sub(".*?[crx]
","",readChar("stdin",99)))