--  vim: ft=ada

overriding function P_Result
  (Node            : access Bare_Literal_Type) return Integer is
begin
    return Integer'Value (Image (Node.Text));
end P_Result;
