Create test_dictcreator.hs

TODO:1