$/=$";$%+=$d+=<>-/0$/*($e+=<>)[$e>$d]for 1..<>*(<>-<>);print$%