module Main(main) where {
import Data.Random.Distribution.Binomial(binomial);
import StringTF(stringtf);
import Rvarsample(rvarsample);

main :: IO();
main = do {
binomialprint (32*10^31) 0.5;
binomialprint (33*10^31) 0.5;
binomialprint (32*10^31) 0.0625;
binomialprint (33*10^31) 0.0625;
};

type Ii = Integer;

binomialprint :: Ii -> Double -> IO ();
binomialprint n p = putStrLn $ "N=" ++ show n ++ " p=" ++ show p ++ " sampled=" ++ (show $ rvarsample (stringtf seed) $ binomial n p);

seed :: String;
seed = "foo";

} --end