Number :: Algebraic -> Bool
-- ^ guess again - checks if an @Algebraic@ is actually a number
isNumber (Alg (a:aa)) =  (isDigit a)


isNumber :: Algebraic -> Bool
isNumber (Alg (a:aa)) =  (isDigit a)
isNumber (Alg (a:aa)) =  (isDigit a)