import Data.Ratio -- 1.3
import Data.Array -- 1.3
infix 1 =:
(=:) a b = (a,b)

main = putStr (shows sub_b "\n")
    where
        sub_b :: Array Int Double
        sub_b = ixmap (102, 113) id b

        b :: Array Int Double
        b = fmap ( \ r -> fromRational r / pi )
                 (ixmap (101,200) (\ i -> toInteger i - 100) a)

        a :: Array Integer (Ratio Integer)
        a = array (1,100) ((1 =: 1) : [i =: fromInteger i * a!(i-1)
                                        | i <- [2..100]])
