10 DEFUN SINC(X)=IF X==0 THEN 1 ELSE SIN(X)/X
20 DEFUN THREEDIGITS(X)=ROUND(X*1000)/1000
100 K=MAP(THREEDIGITS<~SINC,1 TO 10)
110 PRINT K