-setRegister :: Part Interval -> Test -> Interval -> Part Interval
-setRegister part (Test X _ _) val = part & x .~ val
-setRegister part (Test M _ _) val = part & m .~ val
-setRegister part (Test A _ _) val = part & a .~ val
-setRegister part (Test S _ _) val = part & s .~ val
+-- setRegister :: Part Interval -> Test -> Interval -> Part Interval
+-- setRegister part (Test X _ _) val = part & x .~ val
+-- setRegister part (Test M _ _) val = part & m .~ val
+-- setRegister part (Test A _ _) val = part & a .~ val
+-- setRegister part (Test S _ _) val = part & s .~ val