#!/bin/sh
perl -ne '$|=1; chop; print "fact[$_]\n";' | induce -q -m- \
  -e 'precious fact(1); fact[0]=1; fact[n]=n.fact[n-1];'
