$ :=File standardInput readLine asUppercase;($..$slice(1))foreach(i,\,write(\asCharacter,if($size>i+1," ","
")))