program-id.y.data division.working-storage section.
1 s pic x(99).
procedure division.accept s
display'"'function trim(s)'"'.