//,@t=sort map{$_.=$',$_ x2}@t?@t:$,for N,U,P,C;print$t[<>-1]