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 ";"]
])