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