for(<>){1while s/\+-|-\+|><|<>//;print}