try
  F={New Open.file init(name:"a.txt" flags:[read])}
in 
  {Process F}
catch 
  illformedExpression(X)
then 
  {Log X} 
finally 
  {F close}
end