[add test for atom conversion to integer and back
John Meacham <john@repetae.net>**20061104043305] hunk ./SelfTest.hs 37
+    quickCheck prop_atomIndex
hunk ./SelfTest.hs 54
+prop_atomIndex (xs :: String) = intToAtom (atomIndex a) == Just a where
+    a = toAtom xs