@h=0;print map(rand>.5?++$H&&++$h[-1]&&H:++$#h&&$",a..gr),$/, join('|',grep$_,@h),$/,$H,$/