import Ġkotlin . math . max čĊč Ċ private Ġfun Ġread Ln () Ġ= Ġread Line () Ġ?: Ġ"" č Ċ private Ġfun Ġread L ns () Ġ= Ġread Ln (). split (" Ġ") č Ċ private Ġfun Ġread Int () Ġ= Ġread Ln (). toInt () č Ċ private Ġfun Ġread Long s () Ġ= Ġread L ns (). map Ġ{ Ġit . to Long () Ġ} čĊč Ċ fun Ġmain () Ġ{ čĊĠĠĠ Ġval Ġn Ġ= Ġread Int () čĊĠĠĠ Ġvar Ġarr Ġ= Ġread Long s () čĊĠĠĠ Ġarr Ġ= Ġarr . sorted () čĊĠĠĠ Ġvar Ġans Ġ= Ġ 1 L čĊĠĠĠ Ġval Ġmod Ġ= Ġ( 1 e 9 Ġ+ Ġ 7 ). to Long () čĊĠĠĠ Ġfor Ġ( i Ġin Ġarr . indices ) Ġ{ čĊĠĠĠĠĠĠĠ Ġans Ġ= Ġans . times ( max ( 0 L , Ġarr [ i ] Ġ- Ġi )). rem ( mod ) čĊĠĠĠ Ġ} čĊĠĠĠ Ġprint ( ans ) č Ċ }