Invia SMS: Reinsurance of Extremal Claims by EOT Method Using R