#!/usr/local/bin/tclsh8.6
set t [list {1 3} {1 3}]
puts $t

proc req_path(src dest) {
 puts "require_path -from $src -to $dest"
}


proc check_ltcu_srcm_connection {ltcu_inst srcm name} {
 set b {"${ltcu_inst}.dft_${name}_scan_mode_o" "${srcm}.scan_mode"}
puts $b
 set all_paths [list
		{"${ltcu_inst}.dft_${name}_scan_mode_o" "${srcm}.scan_mode"} \
		[list dft_${name}_scan_delay_scan_mode_o 
${srcm}.scan_mode_atspeed_i]
		[list dft_${name}_scan_hatpg_src_en_o ${srcm}.scan_rst_byenb]
	]

puts $all_paths 
#	foreach p $all_paths {
#		req_path [lindex p 0] [lindex p 1]
}
}


check_ltcu_srcm_connection 'path/to/ltcu/ltcu' 'p/to/src' 'bpss'