Buna.
Ceva de genul asta:
returnInt :: Expr -> Int
returnInt (Value x) = x
returnInt (Symbol x) = length x
Unde inlocuiesti length x cu ceva care sa intoarca un intreg dintr-un string in functie de ce ai nevoie.
Daca vrei sa iti intoarca eroare pentru cazul cu string: returnInt (Symbol x) = error "Eroareeee"