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