s <- "programming"r <- utf8ToInt(s) %% 2cat(0, head(r, -2) * tail(r, -2), 0, "\n", sep = "")
Standard input is empty
00001011010
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!