unique :: Action Int
unique = Action $ do
    s <- get
    put s{uniques = uniques s + 1}
    return $ uniques s
unique :: Action Int
unique = Action $ do
    s <- get
    put s{uniques = uniques s + 1}
    return $ uniques s
unique = Action $ do
    s <- get
    put s{uniques = uniques s + 1}
    return $ uniques s