dispList :: ExpressionList -> Text
dispList (ExpressionList l) = dispList_ l (length l)
dispList :: ExpressionList -> Text
dispList (ExpressionList l) = dispList_ l (length l)
dispList (ExpressionList l) = dispList_ l (length l)