JoyListType = List[JoyType]

JoyMapType = Map[string, JoyListType]

JoyType = ref object
  case kind*: JoyTypeType
  of joySymbol:
    symVal*: string
  of joyFalse, joyTrue:
    nil
  of joyInt:
    intVal*: BigInt
  of joyList:
    listVal*: JoyListType
  

JoyTypeType = enum
  joySymbol, joyTrue, joyFalse, joyInt, joyList

ParseError = object of ValueError

UnknownWordError = object of ValueError

j_false = JoyType(kind: joyFalse)

j_loop = JoyType(kind: joySymbol, symVal: "loop")

j_true = JoyType(kind: joyTrue)

proc print_stack(stack: JoyListType): string {....raises: [Exception],
    tags: [RootEffect].}