program-id.y.data division.working-storage section.
1 s pic x(9).
procedure division.a.accept s
if s=33700 display"hoolee"else
if s=007 display"sloo"else
if s=58181771 display"sillibibs"else
inspect s converting"01234578"to"oizehslb"display
function reverse(function trim(s))go a.