@h=(20105,20063,19892,20011,19874,20199,19898,20163,19956,19841);
--$h[$_]for<>=~/./g;
$h[$_]<0&&print for 0..9;
print$";
$h[$_]>0&&print for 0..9;