M: hashtable json-print ( hashtable -- ) CHAR: { write1 [ [ swap jsvar-encode >json % CHAR: : , >json % ] "" make ] { } assoc>map "," join write CHAR: } write1 ; ! I want to remove jsvar-encode M: hashtable json-print ( hashtable -- ) CHAR: { write1 [ [ swap >json % CHAR: : , >json % ] "" make ] { } assoc>map "," join write CHAR: } write1 ;