IN: temporary
USING: simplex test ;
! [ { 1 } ] [ {*} H ] unit-test
! [ { 2 } ] [ S^0 H ] unit-test
! [ { 1 1 } ] [ 1 S^ H ] unit-test
! [ { 1 0 } ] [ 1 D^ H ] unit-test
! [ { 1 0 1 } ] [ 2 S^ H ] unit-test
! [ { 1 0 0 } ] [ 2 D^ H ] unit-test