$b[$_]=chr
      ($_%9?0x2E :
     0xA)for 1..72;
    $d="6r7k15p17p23
   n25p32p34b37p39b41
  P55P60 Q61P62P65q66
 N67R6   9R71K";$d=~
  s/\s   +//xg;$b[$1
        ]=$2while$d=~
        /(\d+)(\D)/g;
       $d="Kramnik";$c
      ="Topalov";shift
      @b;unshift @b,' '
          .$c,chr
        10;push @b,$
       d,chr 0xA; $,=
     chr 0x20; print@b;