let make_pp_full_select ((s:Sqml_sqlstx.select), (ol:Sqml_sqlstx.ordering list)) =
  Block (List.flatten [
           [make_pp_select s];
           (if ol = [] then [] else
              [Halign (r "ORDER BY"
                       :: (list_between make_pp_ordering (r ",") ol))]);
           [r ";"]
         ])