subroutine char SEGMENTS

delete hbond $1 $2
< ?MAIN_UTILS:def_top_par_19 SEGMENTS
< ?MAIN_CMDS:re_image.cmds SEGMENTS
return