6 main = putStr (shows sub_b "\n")
8 sub_b :: Array Int Double
9 sub_b = ixmap (102, 113) id b
12 b = map ( \ r -> fromRational r / pi )
13 (ixmap (101,200) (\ i -> toInteger i - 100) a)
15 a :: Array Integer (Ratio Integer)
16 a = array (1,100) ((1 =: 1) : [i =: fromInteger i * a!(i-1)