noecho

name c91 'year' c92 'count' c93 'lam' 
set 'year'
1:10
set 'count'
24 25 31 31 22 21 26 20 16 22
let 'f'=0*'x'
let k92=10
store 'temp';
 replace.
  let k91=k91+1
  let 'lam'=exp('x'+'y'*'year'(k91))
  let 'f'='f'-'lam'+'count'(k91)*log('lam')
end
let k91=0
exec  'temp' k92