Service Revised

class Database
   attr Dict
   meth init Dict<-{NewDictionary} end
   meth get(Key   $)
      try @Dict.Key
      catch E then {Value.byNeedFail E} end
   end
   meth put(Key Val) @Dict.Key := Val end
end