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