list("")do(File standardInput readLine reverse foreach(c,contains(c=c asCharacter)or appendSeq(map(\,c ..\)))map(println))