program-id.y.data division.working-storage section. 1 s pic x(167). procedure division.accept s display s(1:19)"u"s(20:47)"maple syrup"s(71:14)"u"s(85:10)"c"s(96:41)"re"s(139:11)"re"s(152:)accept s display s(1:9)"re"s(12:38)s(51:29)"me"s(80:42)"toque!"accept s display s(1:27)"re"s(30:38)"u"s(68:22)"me"s(90:49)"um.".
Note that non-ascii characters in the above source code will be escaped (such as \x9f).