%%HP: T(3)A(D)F(.);
DIR
  G
    \<< \-> S '10/(S*(S         
+1)*(S+2))'                     
    \>>
  PPAR { (-5,-10)               
(.1,20) W 0 (0,0)
FUNCTION C }
  NYQUIST                       
    \<< ERASE .001              
100                             
      FOR W i W * G
\->NUM PIXON PICT RCL
\->LCD .1                       
      STEP
    \>>
  NYQL                          
    \<< ERASE .001 i
* G \->NUM .001 100             
      FOR W i W * G             
\->NUM DUP 3 ROLLD
LINE PICT RCL \->LCD
.5                              
      STEP
    \>>
END