Update Test_Prime.hs