let
pretty fmt vs =
let
fn = !printer
in
fn fmt vs