emptyBuild :: BuildSt g
emptyBuild = BuildSt emptyCirc 0 0 0 0 M.empty M.empty
emptyBuild :: BuildSt g
emptyBuild = BuildSt emptyCirc 0 0 0 0 M.empty M.empty
emptyBuild = BuildSt emptyCirc 0 0 0 0 M.empty M.empty