$/=get.words;(say(+[<] get.words);$*IN.flush)xx $0