program-id.y.data division.working-storage section.
1 s pic x(99).
procedure division.a.if s>""display s(1:1)no advancing
move s(2:)to s
go a.accept s(2:)if""=s(3:)or"*"=s(3:1)or"e"=s(9:)or"R"=s(2:1)move s(2:)to s.if"f"<>s if")"<>s(9:)if"t"<>s(13:)go a.
display s.