(while(read-line)=>\(dotimes,6(set!\((^`_ #`",`0,`2,`1")(#/.*?(\S*)( \S*)$/\)0)))(print\))