proc route_via {net nodes} {
	# FIXME
}

proc putl {lst} {
	foreach line $lst {puts $line}
}