main :: IO Counts
main = do
  test1 <- getTest "Anonymous" False
  test2 <- getTest "Butter-fly" False
  test3 <- getTest "Nagori-yuki" True
  runTestTT $ TestList [test1, test2, test3]
main :: IO Counts
main = do
  test1 <- getTest "Anonymous" False
  test2 <- getTest "Butter-fly" False
  test3 <- getTest "Nagori-yuki" True
  runTestTT $ TestList [test1, test2, test3]
main = do
  test1 <- getTest "Anonymous" False
  test2 <- getTest "Butter-fly" False
  test3 <- getTest "Nagori-yuki" True
  runTestTT $ TestList [test1, test2, test3]