ident () = unsafePerformIO $
            sequence (take 3 (repeat $ getStdRandom (randomR (97,122)) >>= return . chr))
ident () = unsafePerformIO $
            sequence (take 3 (repeat $ getStdRandom (randomR (97,122)) >>= return . chr))
ident () = unsafePerformIO $
            sequence (take 3 (repeat $ getStdRandom (randomR (97,122)) >>= return . chr))