module "/pliant/language/context.pli"

function fibo n -> r
  arg Int n r
  if n < 2
    return 1
  else
    return (fibo n-2) + (fibo n-1)

gvar Str s_n := cast ((pliant_script_args translate Address 1) map CStr) Str
if (s_n parse (gvar Int n))
  console (fibo n) eol
else
  console "usage: fibo.pli <number>" eol