($_,@_)=<>;$_[--$_]x=2for+split;print@_