showUntypedSimValue :: SimValue -> String
    showUntypedSimValue NoSimValue = "token"
showUntypedSimValue :: SimValue -> String
showUntypedSimValue NoSimValue = "token"
showUntypedSimValue NoSimValue = "token"