Write prolog code that removes the quotes from a char:

This is my attempt:

$\%$removes the quotes from an atom

removeQuotes$($QuotedAtom$,$ Atom$)$ :$-$

atom$\_$chars$($QuotedAtom$,[\text{'}\backslash \text{'}\text{'}|$Chars$]),\%$ Check if QuotedAtom starts with a single quote

append$($InnerChars$,[\text{'}\backslash \text{'}\text{'}],$ Chars$),\%$ Remove the last single quote

atom$\_$chars$($Atom$,$ InnerChars$),\%$ Convert the list of characters back to an atom

$!.\%$ Cut to prevent backtracking

removeQuotes$($Atom$,$ Atom$).\%$ If QuotedAtom is not quoted, leave it unchanged

The terminal responds with:

$22?-$ removeQuotes$(\text{'}$a$\text{'},$R$).$

R $=$ a$.$

$23?-$ removeQuotes$(\text{'}42\text{'},$R$).$

R $=\text{'}42\text{'}.$

The problem is removeing from a number. How do we remove the quotes from a atom that has a char in it$.$ so $\text{'}42\text{'}.$ The code should be able to handle the atom $\text{'}$in$-42\text{'}$ and respond with R $=$ in$-42$