integer(kind=8)::i=1,n,Mutton=0 read *,n do while(Mutton