playRound :: (Player, Player) -> (Player, Player)
playRound a =
  let (p2, p1) = playHand a
      (p1a, p2a) = playHand (p2,p1)
  in (p1a, p2a)
playRound :: (Player, Player) -> (Player, Player)
playRound a =
  let (p2, p1) = playHand a
      (p1a, p2a) = playHand (p2,p1)
  in (p1a, p2a)
playRound a =
  let (p2, p1) = playHand a
      (p1a, p2a) = playHand (p2,p1)
  in (p1a, p2a)