for(c<-"4\x0e 2\x0e\x103\x0e\x182\x192\x18<\x0e.666<\x06..667\x1156.66:\x06....67\x19566.6;\x06..6..7\x13\x0e.56.57\x13\x06......./";d<-"\x08\x01")print("+-ABOX\x09\n"(c/d%8))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).