fst : [`a, `b] `a * `b -> `a
main : int