#!/bin/execlineb

pipeline { sed "s/./\\0\\n/g" }
init-state level
save-state level 0
foreground {
	forstdin -E char
		case "$char" {
			"(\\{|\\[)" {
				load-state level cur
				backtick -I -E new { s6-expr "$cur" + 1 }
				save-state level $new
				s6-echo -n "$char"
			}
			"(\\}|\\])" {
				load-state level cur
				backtick -I -E new { s6-expr "$cur" - 1 }
				save-state level $new
				s6-echo -n "$char"
			}
			"," {
				load-state level cur
				save-state level "$cur"
				ifelse { s6-test "$cur" = 0 } {
					s6-echo
				}
				s6-echo -n "$char"
			}
		}
		s6-echo -n "$char"
}
s6-echo