my($turn) = @_;

  my @record = split ( /\n/, $turn);