F # получение определенного элемента из списка кортежей

Question

Предполагая объявления ниже, как бы я мог взять список ats и получить из него ints, если бы я хотел проверить, были ли они все положительные числа, например? Подсказка приветствуется.

type Item = string 
type ItemList = Item * int 

let ad1 = ("machine", 2) 
let ad2 = ("coffee", 1) 
let ad3 = ("washer", 2) 
let ats = [ad1; ad2; ad3; ad1; ad2] 

Answer 1

let ints = ats |> List.map snd 

let allPositive = ints |> List.forall (fun x -> x > 0)