let
get_first lst =
let
helper (x,y) = x
in
List
.map helper lst