private package Expressions.Literals is
type Literal is new Expression with private;
type A_Literal is access all Literal'Class;
function Create_Literal