Added bintest.hs