romanAlgToDecimal :: RomanAlg -> Int
romanAlgToDecimal c = case c of
                        I -> 1
                        V -> 5
                        X -> 10
                        L -> 50
                        C -> 100
                        D -> 500
                        M -> 1000
romanAlgToDecimal :: RomanAlg -> Int
romanAlgToDecimal c = case c of
                        I -> 1
                        V -> 5
                        X -> 10
                        L -> 50
                        C -> 100
                        D -> 500
                        M -> 1000
romanAlgToDecimal c = case c of
                        I -> 1
                        V -> 5
                        X -> 10
                        L -> 50
                        C -> 100
                        D -> 500
                        M -> 1000