(port-map(^s(print(count #[%*](string->list(regexp-replace-all"\\*|%%|(%[*-9]*s)"s"\\1")))))read-line)