let
display x =
Display
.display !-internal_display x