#!/bin/sh
perl -ne '$|=1; chop; print "fibo[$_]\n";' | induce -q -m- -e \
'precious fibo(1);
 fibo[0]=0; fibo[1]=1;
 fibo[n]=fibo[n-1]+fibo[n-2] if n>1;
 fibo[n]=fibo[n+2]-fibo[n+1] if n<0;
'
