putc~/1/+"`cfilosv"[$_[0]%10]while gets"1"