%%HP: T(1)A(D)F(.);

[[ .3 .069 ]
 [ .35 .217 ]
 [ .4 .359 ]
 [ .45 .496 ]
 [ .5 .631 ]
 [ .55 .764 ]
 [ .6 .896 ]
 [ .65 1.028 ]
 [ .7 1.16 ]
 [ .75 1.294 ]
 [ .8 1.43 ]
 [ .85 1.567 ]
 [ .9 1.708 ]
 [ .95 1.852 ]
 [ 1 2 ]]
0  FI T c
  
    DO 'c' INCR
    UNTIL { 2 } +
'T' SWAP GET FI 
    END 'T' c { 2 }
+ GET FI
    IF ==
    THEN 'T' c { 1
} + GET
    ELSE 'T' c { 2
} + GET 'T' c 1 - {
2 } + GET { 2 1 }
ARRY 1 'T' c { 1 }
+ GET 1 'T' c 1 - {
1 } + GET { 2 2 }
ARRY / OBJ DROP
SWAP NEG FI + SWAP
/
    END
  

