aledomu

{-# LANGUAGE LambdaCase #-}

import Data.List
import Data.Map.Strict (Map)
import Data.Map.Strict qualified as M
import Data.Maybe

data Op = Sum   Char Char Char [Char]
        | Prod  Char Char Char [Char]
        | Minus Char Char Char