function val = subsref(a, S)

switch S.type
case '()'
   disp('subsref () not implemented');
case '{}'
   disp('subsref {} not implemented');
case '.'
   val = get(a,S.subs);
end