#! perl -w
sub H($$){
#________1_________2_________3_________4_________5_________6_________7_________8____
#23456789012345678901234567890123456789012345678901234567890123456789012345678901234
map{int(1e3*$_*$_[0])/1e3}grep!$_{$_}++,sort{$a<=>$b}map{$.=$_;map$./$_,1..$_}1..pop
}