+ $pos{'ep_file_num'} = $x[10];
+ $pos{'white_castle_k'} = $x[11];
+ $pos{'white_castle_q'} = $x[12];
+ $pos{'black_castle_k'} = $x[13];
+ $pos{'black_castle_q'} = $x[14];
+ $pos{'time_to_100move_rule'} = $x[15];
+ $pos{'move_num'} = $x[26];
+ $pos{'last_move'} = $x[29];
+ $pos{'fen'} = make_fen(\%pos);
+
+ return \%pos;
+}
+
+sub make_fen {
+ my $pos = shift;
+