samer@44: % fst - first element of pair
samer@44: % fst :: pair(A,B) -> A.
samer@44: function x=fst(c), x=c{1}; end