let
em_par a b c = ((a, to_fita b),c)