Posted to tcl by mistachkin at Thu Jun 12 18:55:23 GMT 2008view raw

  1. compExpr-old.test
  2.  
  3.  
  4. ==== compExpr-old-3.8 CompileCondExpr: long arms & nested cond exprs FAILED
  5. ==== Contents of test case:
  6.  
  7. # Fails with a stack overflow on threaded Windows builds
  8. do_twelve_days
  9.  
  10. ---- Test generated error; Return code was: 1
  11. ---- Return code should have been one of: 0 2
  12. ---- errorInfo: out of stack space (infinite loop?)
  13. while executing
  14. "format %c $b"
  15. (procedure "12days" line 5)
  16. invoked from within
  17. "12days -65 $b [string range $c 1 end]"
  18. (procedure "12days" line 6)
  19. invoked from within
  20. "12days -65 $b [string range $c 1 end]"
  21. (procedure "12days" line 6)
  22. invoked from within
  23. "12days -61 [scan [string index $c 0] %c x; set x] "!ek;dc i@bK'(q)-\[w\]*%n+r3#l,\{\}:\nuwloca-O;m .vpbks,fxntdCeghiry""
  24. (procedure "12days" line 8)
  25. invoked from within
  26. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  27. (procedure "12days" line 6)
  28. invoked from within
  29. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  30. (procedure "12days" line 6)
  31. invoked from within
  32. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  33. (procedure "12days" line 6)
  34. invoked from within
  35. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  36. (procedure "12days" line 6)
  37. invoked from within
  38. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  39. (procedure "12days" line 6)
  40. invoked from within
  41. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  42. (procedure "12days" line 6)
  43. invoked from within
  44. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  45. (procedure "12days" line 6)
  46. invoked from within
  47. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  48. (procedure "12days" line 6)
  49. invoked from within
  50. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  51. (procedure "12days" line 6)
  52. invoked from within
  53. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  54. (procedure "12days" line 6)
  55. invoked from within
  56. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  57. (procedure "12days" line 6)
  58. invoked from within
  59. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  60. (procedure "12days" line 6)
  61. invoked from within
  62. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  63. (procedure "12days" line 6)
  64. invoked from within
  65. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  66. (procedure "12days" line 6)
  67. invoked from within
  68. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  69. (procedure "12days" line 6)
  70. invoked from within
  71. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  72. (procedure "12days" line 6)
  73. invoked from within
  74. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  75. (procedure "12days" line 6)
  76. invoked from within
  77. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  78. (procedure "12days" line 6)
  79. invoked from within
  80. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  81. (procedure "12days" line 6)
  82. invoked from within
  83. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  84. (procedure "12days" line 6)
  85. invoked from within
  86. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  87. (procedure "12days" line 6)
  88. invoked from within
  89. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  90. (procedure "12days" line 6)
  91. invoked from within
  92. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  93. (procedure "12days" line 6)
  94. invoked from within
  95. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  96. (procedure "12days" line 6)
  97. invoked from within
  98. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  99. (procedure "12days" line 6)
  100. invoked from within
  101. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  102. (procedure "12days" line 6)
  103. invoked from within
  104. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  105. (procedure "12days" line 6)
  106. invoked from within
  107. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  108. (procedure "12days" line 6)
  109. invoked from within
  110. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  111. (procedure "12days" line 6)
  112. invoked from within
  113. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  114. (procedure "12days" line 6)
  115. invoked from within
  116. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  117. (procedure "12days" line 6)
  118. invoked from within
  119. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  120. (procedure "12days" line 6)
  121. invoked from within
  122. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  123. (procedure "12days" line 6)
  124. invoked from within
  125. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  126. (procedure "12days" line 6)
  127. invoked from within
  128. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  129. (procedure "12days" line 6)
  130. invoked from within
  131. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  132. (procedure "12days" line 6)
  133. invoked from within
  134. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  135. (procedure "12days" line 6)
  136. invoked from within
  137. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  138. (procedure "12days" line 6)
  139. invoked from within
  140. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  141. (procedure "12days" line 6)
  142. invoked from within
  143. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  144. (procedure "12days" line 6)
  145. invoked from within
  146. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  147. (procedure "12days" line 6)
  148. invoked from within
  149. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  150. (procedure "12days" line 6)
  151. invoked from within
  152. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  153. (procedure "12days" line 6)
  154. invoked from within
  155. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  156. (procedure "12days" line 6)
  157. invoked from within
  158. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  159. (procedure "12days" line 6)
  160. invoked from within
  161. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  162. (procedure "12days" line 6)
  163. invoked from within
  164. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  165. (procedure "12days" line 6)
  166. invoked from within
  167. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  168. (procedure "12days" line 6)
  169. invoked from within
  170. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  171. (procedure "12days" line 6)
  172. invoked from within
  173. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  174. (procedure "12days" line 6)
  175. invoked from within
  176. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  177. (procedure "12days" line 6)
  178. invoked from within
  179. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  180. (procedure "12days" line 6)
  181. invoked from within
  182. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  183. (procedure "12days" line 6)
  184. invoked from within
  185. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  186. (procedure "12days" line 6)
  187. invoked from within
  188. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  189. (procedure "12days" line 6)
  190. invoked from within
  191. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  192. (procedure "12days" line 6)
  193. invoked from within
  194. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  195. (procedure "12days" line 6)
  196. invoked from within
  197. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  198. (procedure "12days" line 6)
  199. invoked from within
  200. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  201. (procedure "12days" line 6)
  202. invoked from within
  203. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  204. (procedure "12days" line 6)
  205. invoked from within
  206. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  207. (procedure "12days" line 6)
  208. invoked from within
  209. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  210. (procedure "12days" line 6)
  211. invoked from within
  212. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  213. (procedure "12days" line 6)
  214. invoked from within
  215. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  216. (procedure "12days" line 6)
  217. invoked from within
  218. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  219. (procedure "12days" line 6)
  220. invoked from within
  221. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  222. (procedure "12days" line 6)
  223. invoked from within
  224. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  225. (procedure "12days" line 6)
  226. invoked from within
  227. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  228. (procedure "12days" line 6)
  229. invoked from within
  230. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  231. (procedure "12days" line 6)
  232. invoked from within
  233. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  234. (procedure "12days" line 6)
  235. invoked from within
  236. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  237. (procedure "12days" line 6)
  238. invoked from within
  239. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  240. (procedure "12days" line 6)
  241. invoked from within
  242. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  243. (procedure "12days" line 6)
  244. invoked from within
  245. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  246. (procedure "12days" line 6)
  247. invoked from within
  248. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  249. (procedure "12days" line 6)
  250. invoked from within
  251. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  252. (procedure "12days" line 6)
  253. invoked from within
  254. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  255. (procedure "12days" line 6)
  256. invoked from within
  257. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  258. (procedure "12days" line 6)
  259. invoked from within
  260. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  261. (procedure "12days" line 6)
  262. invoked from within
  263. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  264. (procedure "12days" line 6)
  265. invoked from within
  266. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  267. (procedure "12days" line 6)
  268. invoked from within
  269. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  270. (procedure "12days" line 6)
  271. invoked from within
  272. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  273. (procedure "12days" line 6)
  274. invoked from within
  275. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  276. (procedure "12days" line 6)
  277. invoked from within
  278. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  279. (procedure "12days" line 6)
  280. invoked from within
  281. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  282. (procedure "12days" line 6)
  283. invoked from within
  284. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  285. (procedure "12days" line 6)
  286. invoked from within
  287. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  288. (procedure "12days" line 6)
  289. invoked from within
  290. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  291. (procedure "12days" line 6)
  292. invoked from within
  293. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  294. (procedure "12days" line 6)
  295. invoked from within
  296. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  297. (procedure "12days" line 6)
  298. invoked from within
  299. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  300. (procedure "12days" line 6)
  301. invoked from within
  302. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  303. (procedure "12days" line 6)
  304. invoked from within
  305. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  306. (procedure "12days" line 6)
  307. invoked from within
  308. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  309. (procedure "12days" line 6)
  310. invoked from within
  311. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  312. (procedure "12days" line 6)
  313. invoked from within
  314. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  315. (procedure "12days" line 6)
  316. invoked from within
  317. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  318. (procedure "12days" line 6)
  319. invoked from within
  320. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  321. (procedure "12days" line 6)
  322. invoked from within
  323. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  324. (procedure "12days" line 6)
  325. invoked from within
  326. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  327. (procedure "12days" line 6)
  328. invoked from within
  329. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  330. (procedure "12days" line 6)
  331. invoked from within
  332. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  333. (procedure "12days" line 6)
  334. invoked from within
  335. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  336. (procedure "12days" line 6)
  337. invoked from within
  338. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  339. (procedure "12days" line 6)
  340. invoked from within
  341. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  342. (procedure "12days" line 6)
  343. invoked from within
  344. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  345. (procedure "12days" line 6)
  346. invoked from within
  347. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  348. (procedure "12days" line 6)
  349. invoked from within
  350. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  351. (procedure "12days" line 6)
  352. invoked from within
  353. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  354. (procedure "12days" line 6)
  355. invoked from within
  356. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  357. (procedure "12days" line 6)
  358. invoked from within
  359. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  360. (procedure "12days" line 6)
  361. invoked from within
  362. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  363. (procedure "12days" line 6)
  364. invoked from within
  365. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  366. (procedure "12days" line 6)
  367. invoked from within
  368. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  369. (procedure "12days" line 6)
  370. invoked from within
  371. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  372. (procedure "12days" line 6)
  373. invoked from within
  374. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  375. (procedure "12days" line 6)
  376. invoked from within
  377. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  378. (procedure "12days" line 6)
  379. invoked from within
  380. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  381. (procedure "12days" line 6)
  382. invoked from within
  383. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  384. (procedure "12days" line 6)
  385. invoked from within
  386. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  387. (procedure "12days" line 6)
  388. invoked from within
  389. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  390. (procedure "12days" line 6)
  391. invoked from within
  392. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  393. (procedure "12days" line 6)
  394. invoked from within
  395. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  396. (procedure "12days" line 6)
  397. invoked from within
  398. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  399. (procedure "12days" line 6)
  400. invoked from within
  401. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  402. (procedure "12days" line 6)
  403. invoked from within
  404. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  405. (procedure "12days" line 6)
  406. invoked from within
  407. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  408. (procedure "12days" line 6)
  409. invoked from within
  410. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  411. (procedure "12days" line 6)
  412. invoked from within
  413. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  414. (procedure "12days" line 6)
  415. invoked from within
  416. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  417. (procedure "12days" line 6)
  418. invoked from within
  419. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  420. (procedure "12days" line 6)
  421. invoked from within
  422. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  423. (procedure "12days" line 6)
  424. invoked from within
  425. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  426. (procedure "12days" line 6)
  427. invoked from within
  428. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  429. (procedure "12days" line 6)
  430. invoked from within
  431. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  432. (procedure "12days" line 6)
  433. invoked from within
  434. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  435. (procedure "12days" line 6)
  436. invoked from within
  437. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  438. (procedure "12days" line 6)
  439. invoked from within
  440. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  441. (procedure "12days" line 6)
  442. invoked from within
  443. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  444. (procedure "12days" line 6)
  445. invoked from within
  446. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  447. (procedure "12days" line 6)
  448. invoked from within
  449. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  450. (procedure "12days" line 6)
  451. invoked from within
  452. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  453. (procedure "12days" line 6)
  454. invoked from within
  455. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  456. (procedure "12days" line 6)
  457. invoked from within
  458. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  459. (procedure "12days" line 6)
  460. invoked from within
  461. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  462. (procedure "12days" line 6)
  463. invoked from within
  464. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  465. (procedure "12days" line 6)
  466. invoked from within
  467. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  468. (procedure "12days" line 6)
  469. invoked from within
  470. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  471. (procedure "12days" line 6)
  472. invoked from within
  473. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  474. (procedure "12days" line 6)
  475. invoked from within
  476. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  477. (procedure "12days" line 6)
  478. invoked from within
  479. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  480. (procedure "12days" line 6)
  481. invoked from within
  482. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  483. (procedure "12days" line 6)
  484. invoked from within
  485. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  486. (procedure "12days" line 6)
  487. invoked from within
  488. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  489. (procedure "12days" line 6)
  490. invoked from within
  491. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  492. (procedure "12days" line 6)
  493. invoked from within
  494. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  495. (procedure "12days" line 6)
  496. invoked from within
  497. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  498. (procedure "12days" line 6)
  499. invoked from within
  500. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  501. (procedure "12days" line 6)
  502. invoked from within
  503. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  504. (procedure "12days" line 6)
  505. invoked from within
  506. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  507. (procedure "12days" line 6)
  508. invoked from within
  509. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  510. (procedure "12days" line 6)
  511. invoked from within
  512. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  513. (procedure "12days" line 6)
  514. invoked from within
  515. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  516. (procedure "12days" line 6)
  517. invoked from within
  518. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  519. (procedure "12days" line 6)
  520. invoked from within
  521. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  522. (procedure "12days" line 6)
  523. invoked from within
  524. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  525. (procedure "12days" line 6)
  526. invoked from within
  527. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  528. (procedure "12days" line 6)
  529. invoked from within
  530. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  531. (procedure "12days" line 6)
  532. invoked from within
  533. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  534. (procedure "12days" line 6)
  535. invoked from within
  536. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  537. (procedure "12days" line 6)
  538. invoked from within
  539. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  540. (procedure "12days" line 6)
  541. invoked from within
  542. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  543. (procedure "12days" line 6)
  544. invoked from within
  545. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  546. (procedure "12days" line 6)
  547. invoked from within
  548. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  549. (procedure "12days" line 6)
  550. invoked from within
  551. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  552. (procedure "12days" line 6)
  553. invoked from within
  554. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  555. (procedure "12days" line 6)
  556. invoked from within
  557. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  558. (procedure "12days" line 6)
  559. invoked from within
  560. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  561. (procedure "12days" line 6)
  562. invoked from within
  563. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  564. (procedure "12days" line 6)
  565. invoked from within
  566. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  567. (procedure "12days" line 6)
  568. invoked from within
  569. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  570. (procedure "12days" line 6)
  571. invoked from within
  572. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  573. (procedure "12days" line 6)
  574. invoked from within
  575. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  576. (procedure "12days" line 6)
  577. invoked from within
  578. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  579. (procedure "12days" line 6)
  580. invoked from within
  581. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  582. (procedure "12days" line 6)
  583. invoked from within
  584. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  585. (procedure "12days" line 6)
  586. invoked from within
  587. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  588. (procedure "12days" line 6)
  589. invoked from within
  590. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  591. (procedure "12days" line 6)
  592. invoked from within
  593. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  594. (procedure "12days" line 6)
  595. invoked from within
  596. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  597. (procedure "12days" line 6)
  598. invoked from within
  599. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  600. (procedure "12days" line 6)
  601. invoked from within
  602. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  603. (procedure "12days" line 6)
  604. invoked from within
  605. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  606. (procedure "12days" line 6)
  607. invoked from within
  608. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  609. (procedure "12days" line 6)
  610. invoked from within
  611. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  612. (procedure "12days" line 6)
  613. invoked from within
  614. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  615. (procedure "12days" line 6)
  616. invoked from within
  617. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  618. (procedure "12days" line 6)
  619. invoked from within
  620. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  621. (procedure "12days" line 6)
  622. invoked from within
  623. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  624. (procedure "12days" line 6)
  625. invoked from within
  626. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  627. (procedure "12days" line 6)
  628. invoked from within
  629. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  630. (procedure "12days" line 6)
  631. invoked from within
  632. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  633. (procedure "12days" line 6)
  634. invoked from within
  635. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  636. (procedure "12days" line 6)
  637. invoked from within
  638. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  639. (procedure "12days" line 6)
  640. invoked from within
  641. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  642. (procedure "12days" line 6)
  643. invoked from within
  644. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  645. (procedure "12days" line 6)
  646. invoked from within
  647. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  648. (procedure "12days" line 6)
  649. invoked from within
  650. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  651. (procedure "12days" line 6)
  652. invoked from within
  653. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  654. (procedure "12days" line 6)
  655. invoked from within
  656. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  657. (procedure "12days" line 6)
  658. invoked from within
  659. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  660. (procedure "12days" line 6)
  661. invoked from within
  662. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  663. (procedure "12days" line 6)
  664. invoked from within
  665. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  666. (procedure "12days" line 6)
  667. invoked from within
  668. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  669. (procedure "12days" line 6)
  670. invoked from within
  671. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  672. (procedure "12days" line 6)
  673. invoked from within
  674. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  675. (procedure "12days" line 6)
  676. invoked from within
  677. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  678. (procedure "12days" line 6)
  679. invoked from within
  680. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  681. (procedure "12days" line 6)
  682. invoked from within
  683. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  684. (procedure "12days" line 6)
  685. invoked from within
  686. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  687. (procedure "12days" line 6)
  688. invoked from within
  689. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  690. (procedure "12days" line 6)
  691. invoked from within
  692. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  693. (procedure "12days" line 6)
  694. invoked from within
  695. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  696. (procedure "12days" line 6)
  697. invoked from within
  698. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  699. (procedure "12days" line 6)
  700. invoked from within
  701. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  702. (procedure "12days" line 6)
  703. invoked from within
  704. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  705. (procedure "12days" line 6)
  706. invoked from within
  707. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  708. (procedure "12days" line 6)
  709. invoked from within
  710. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  711. (procedure "12days" line 6)
  712. invoked from within
  713. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  714. (procedure "12days" line 6)
  715. invoked from within
  716. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  717. (procedure "12days" line 6)
  718. invoked from within
  719. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  720. (procedure "12days" line 6)
  721. invoked from within
  722. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  723. (procedure "12days" line 6)
  724. invoked from within
  725. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  726. (procedure "12days" line 6)
  727. invoked from within
  728. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  729. (procedure "12days" line 6)
  730. invoked from within
  731. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  732. (procedure "12days" line 6)
  733. invoked from within
  734. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  735. (procedure "12days" line 6)
  736. invoked from within
  737. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  738. (procedure "12days" line 6)
  739. invoked from within
  740. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  741. (procedure "12days" line 6)
  742. invoked from within
  743. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  744. (procedure "12days" line 6)
  745. invoked from within
  746. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  747. (procedure "12days" line 6)
  748. invoked from within
  749. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  750. (procedure "12days" line 6)
  751. invoked from within
  752. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  753. (procedure "12days" line 6)
  754. invoked from within
  755. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  756. (procedure "12days" line 6)
  757. invoked from within
  758. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  759. (procedure "12days" line 6)
  760. invoked from within
  761. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  762. (procedure "12days" line 6)
  763. invoked from within
  764. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  765. (procedure "12days" line 6)
  766. invoked from within
  767. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  768. (procedure "12days" line 6)
  769. invoked from within
  770. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  771. (procedure "12days" line 6)
  772. invoked from within
  773. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  774. (procedure "12days" line 6)
  775. invoked from within
  776. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  777. (procedure "12days" line 6)
  778. invoked from within
  779. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  780. (procedure "12days" line 6)
  781. invoked from within
  782. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  783. (procedure "12days" line 6)
  784. invoked from within
  785. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  786. (procedure "12days" line 6)
  787. invoked from within
  788. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  789. (procedure "12days" line 6)
  790. invoked from within
  791. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  792. (procedure "12days" line 6)
  793. invoked from within
  794. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  795. (procedure "12days" line 6)
  796. invoked from within
  797. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  798. (procedure "12days" line 6)
  799. invoked from within
  800. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  801. (procedure "12days" line 6)
  802. invoked from within
  803. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  804. (procedure "12days" line 6)
  805. invoked from within
  806. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  807. (procedure "12days" line 6)
  808. invoked from within
  809. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  810. (procedure "12days" line 6)
  811. invoked from within
  812. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  813. (procedure "12days" line 6)
  814. invoked from within
  815. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  816. (procedure "12days" line 6)
  817. invoked from within
  818. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  819. (procedure "12days" line 6)
  820. invoked from within
  821. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  822. (procedure "12days" line 6)
  823. invoked from within
  824. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  825. (procedure "12days" line 6)
  826. invoked from within
  827. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  828. (procedure "12days" line 6)
  829. invoked from within
  830. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  831. (procedure "12days" line 6)
  832. invoked from within
  833. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  834. (procedure "12days" line 6)
  835. invoked from within
  836. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  837. (procedure "12days" line 6)
  838. invoked from within
  839. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  840. (procedure "12days" line 6)
  841. invoked from within
  842. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  843. (procedure "12days" line 6)
  844. invoked from within
  845. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  846. (procedure "12days" line 6)
  847. invoked from within
  848. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  849. (procedure "12days" line 6)
  850. invoked from within
  851. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  852. (procedure "12days" line 6)
  853. invoked from within
  854. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  855. (procedure "12days" line 6)
  856. invoked from within
  857. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  858. (procedure "12days" line 6)
  859. invoked from within
  860. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  861. (procedure "12days" line 6)
  862. invoked from within
  863. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  864. (procedure "12days" line 6)
  865. invoked from within
  866. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  867. (procedure "12days" line 6)
  868. invoked from within
  869. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  870. (procedure "12days" line 6)
  871. invoked from within
  872. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  873. (procedure "12days" line 6)
  874. invoked from within
  875. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  876. (procedure "12days" line 6)
  877. invoked from within
  878. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  879. (procedure "12days" line 6)
  880. invoked from within
  881. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  882. (procedure "12days" line 6)
  883. invoked from within
  884. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  885. (procedure "12days" line 6)
  886. invoked from within
  887. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  888. (procedure "12days" line 6)
  889. invoked from within
  890. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  891. (procedure "12days" line 6)
  892. invoked from within
  893. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  894. (procedure "12days" line 6)
  895. invoked from within
  896. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  897. (procedure "12days" line 6)
  898. invoked from within
  899. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  900. (procedure "12days" line 6)
  901. invoked from within
  902. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  903. (procedure "12days" line 6)
  904. invoked from within
  905. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  906. (procedure "12days" line 6)
  907. invoked from within
  908. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  909. (procedure "12days" line 6)
  910. invoked from within
  911. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  912. (procedure "12days" line 6)
  913. invoked from within
  914. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  915. (procedure "12days" line 6)
  916. invoked from within
  917. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  918. (procedure "12days" line 6)
  919. invoked from within
  920. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  921. (procedure "12days" line 6)
  922. invoked from within
  923. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  924. (procedure "12days" line 6)
  925. invoked from within
  926. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  927. (procedure "12days" line 6)
  928. invoked from within
  929. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  930. (procedure "12days" line 6)
  931. invoked from within
  932. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  933. (procedure "12days" line 6)
  934. invoked from within
  935. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  936. (procedure "12days" line 6)
  937. invoked from within
  938. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  939. (procedure "12days" line 6)
  940. invoked from within
  941. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  942. (procedure "12days" line 6)
  943. invoked from within
  944. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  945. (procedure "12days" line 6)
  946. invoked from within
  947. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  948. (procedure "12days" line 6)
  949. invoked from within
  950. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  951. (procedure "12days" line 6)
  952. invoked from within
  953. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  954. (procedure "12days" line 6)
  955. invoked from within
  956. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  957. (procedure "12days" line 6)
  958. invoked from within
  959. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  960. (procedure "12days" line 6)
  961. invoked from within
  962. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  963. (procedure "12days" line 6)
  964. invoked from within
  965. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  966. (procedure "12days" line 6)
  967. invoked from within
  968. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  969. (procedure "12days" line 6)
  970. invoked from within
  971. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  972. (procedure "12days" line 6)
  973. invoked from within
  974. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  975. (procedure "12days" line 6)
  976. invoked from within
  977. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  978. (procedure "12days" line 6)
  979. invoked from within
  980. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  981. (procedure "12days" line 6)
  982. invoked from within
  983. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  984. (procedure "12days" line 6)
  985. invoked from within
  986. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  987. (procedure "12days" line 6)
  988. invoked from within
  989. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  990. (procedure "12days" line 6)
  991. invoked from within
  992. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  993. (procedure "12days" line 6)
  994. invoked from within
  995. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  996. (procedure "12days" line 6)
  997. invoked from within
  998. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  999. (procedure "12days" line 6)
  1000. invoked from within
  1001. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1002. (procedure "12days" line 6)
  1003. invoked from within
  1004. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1005. (procedure "12days" line 6)
  1006. invoked from within
  1007. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1008. (procedure "12days" line 6)
  1009. invoked from within
  1010. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1011. (procedure "12days" line 6)
  1012. invoked from within
  1013. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1014. (procedure "12days" line 6)
  1015. invoked from within
  1016. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1017. (procedure "12days" line 6)
  1018. invoked from within
  1019. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1020. (procedure "12days" line 6)
  1021. invoked from within
  1022. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1023. (procedure "12days" line 6)
  1024. invoked from within
  1025. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1026. (procedure "12days" line 6)
  1027. invoked from within
  1028. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1029. (procedure "12days" line 6)
  1030. invoked from within
  1031. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1032. (procedure "12days" line 6)
  1033. invoked from within
  1034. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1035. (procedure "12days" line 6)
  1036. invoked from within
  1037. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1038. (procedure "12days" line 6)
  1039. invoked from within
  1040. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1041. (procedure "12days" line 6)
  1042. invoked from within
  1043. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1044. (procedure "12days" line 6)
  1045. invoked from within
  1046. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1047. (procedure "12days" line 6)
  1048. invoked from within
  1049. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1050. (procedure "12days" line 6)
  1051. invoked from within
  1052. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1053. (procedure "12days" line 6)
  1054. invoked from within
  1055. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1056. (procedure "12days" line 6)
  1057. invoked from within
  1058. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1059. (procedure "12days" line 6)
  1060. invoked from within
  1061. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1062. (procedure "12days" line 6)
  1063. invoked from within
  1064. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1065. (procedure "12days" line 6)
  1066. invoked from within
  1067. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1068. (procedure "12days" line 6)
  1069. invoked from within
  1070. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1071. (procedure "12days" line 6)
  1072. invoked from within
  1073. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1074. (procedure "12days" line 6)
  1075. invoked from within
  1076. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1077. (procedure "12days" line 6)
  1078. invoked from within
  1079. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1080. (procedure "12days" line 6)
  1081. invoked from within
  1082. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1083. (procedure "12days" line 6)
  1084. invoked from within
  1085. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1086. (procedure "12days" line 6)
  1087. invoked from within
  1088. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1089. (procedure "12days" line 6)
  1090. invoked from within
  1091. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1092. (procedure "12days" line 6)
  1093. invoked from within
  1094. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1095. (procedure "12days" line 6)
  1096. invoked from within
  1097. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1098. (procedure "12days" line 6)
  1099. invoked from within
  1100. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1101. (procedure "12days" line 6)
  1102. invoked from within
  1103. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1104. (procedure "12days" line 6)
  1105. invoked from within
  1106. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1107. (procedure "12days" line 6)
  1108. invoked from within
  1109. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1110. (procedure "12days" line 6)
  1111. invoked from within
  1112. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1113. (procedure "12days" line 6)
  1114. invoked from within
  1115. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1116. (procedure "12days" line 6)
  1117. invoked from within
  1118. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1119. (procedure "12days" line 6)
  1120. invoked from within
  1121. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1122. (procedure "12days" line 6)
  1123. invoked from within
  1124. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1125. (procedure "12days" line 6)
  1126. invoked from within
  1127. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1128. (procedure "12days" line 6)
  1129. invoked from within
  1130. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1131. (procedure "12days" line 6)
  1132. invoked from within
  1133. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1134. (procedure "12days" line 6)
  1135. invoked from within
  1136. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1137. (procedure "12days" line 6)
  1138. invoked from within
  1139. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1140. (procedure "12days" line 6)
  1141. invoked from within
  1142. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1143. (procedure "12days" line 6)
  1144. invoked from within
  1145. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1146. (procedure "12days" line 6)
  1147. invoked from within
  1148. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1149. (procedure "12days" line 6)
  1150. invoked from within
  1151. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1152. (procedure "12days" line 6)
  1153. invoked from within
  1154. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1155. (procedure "12days" line 6)
  1156. invoked from within
  1157. "12days $b $a "@n'+,#'/*\{\}w+/w#cdnr/+,\{\}r/*de\}+,/*\{*+,/w\{%+,/w#q#n+,/#\{l+,/n\{n+,/+#n+,/#;#q#n+,/+k#;*+,/'r :'d*'3,\}\{w+K w'K:'+\}e#';dq#'l q#..."
  1158. (procedure "12days" line 4)
  1159. invoked from within
  1160. "12days -94 [expr $a-27] $c"
  1161. (procedure "12days" line 3)
  1162. invoked from within
  1163. "12days 2 2 "%s""
  1164. (procedure "12days" line 7)
  1165. invoked from within
  1166. "12days 1 1 1"
  1167. (procedure "do_twelve_days" line 4)
  1168. invoked from within
  1169. "do_twelve_days"
  1170. ("uplevel" body line 3)
  1171. invoked from within
  1172. "uplevel 1 $script"
  1173. ---- errorCode: NONE
  1174. ==== compExpr-old-3.8 FAILED
  1175.  
  1176. compExpr.test
  1177. compile.test
  1178. concat.test
  1179. config.test
  1180. dcall.test
  1181. dict.test
  1182. dstring.test
  1183. encoding.test
  1184.  
  1185.  
  1186. ==== encoding-2.2 Tcl_FreeEncoding: refcount != 0 FAILED
  1187. ==== Contents of test case:
  1188.  
  1189. set system [encoding system]
  1190. set path [encoding dirs]
  1191. encoding system shiftjis ;# incr ref count
  1192. encoding dirs [list [pwd]]
  1193. set x [encoding convertto shiftjis \u4e4e] ;# old one found
  1194. encoding system identity
  1195. lappend x [catch {encoding convertto shiftjis \u4e4e} msg] $msg
  1196. encoding system identity
  1197. encoding dirs $path
  1198. encoding system $system
  1199. set x
  1200.  
  1201. ---- Result was:
  1202. ŒÁ 0 ŒÁ
  1203. ---- Result should have been (exact matching):
  1204. ŒÁ 1 {unknown encoding "shiftjis"}
  1205. ==== encoding-2.2 FAILED
  1206.  
  1207.  
  1208.  
  1209. ==== encoding-11.1 LoadEncodingFile: unknown encoding FAILED
  1210. ==== Contents of test case:
  1211.  
  1212. set system [encoding system]
  1213. set path [encoding dirs]
  1214. encoding system iso8859-1
  1215. encoding dirs {}
  1216. set x [list [catch {encoding convertto jis0208 \u4e4e} msg] $msg]
  1217. encoding dirs $path
  1218. encoding system $system
  1219. lappend x [encoding convertto jis0208 \u4e4e]
  1220.  
  1221. ---- Result was:
  1222. 0 8C 8C
  1223. ---- Result should have been (exact matching):
  1224. 1 {unknown encoding "jis0208"} 8C
  1225. ==== encoding-11.1 FAILED
  1226.  
  1227. env.test
  1228. error.test
  1229. eval.test
  1230. event.test
  1231. exec.test
  1232. execute.test
  1233. expr-old.test
  1234. expr.test
  1235.  
  1236.  
  1237. ==== expr-3.8 CompileCondExpr: long arms & nested cond exprs FAILED
  1238. ==== Contents of test case:
  1239.  
  1240. # Fails with a stack overflow on threaded Windows builds
  1241. do_twelve_days
  1242.  
  1243. ---- Test generated error; Return code was: 1
  1244. ---- Return code should have been one of: 0 2
  1245. ---- errorInfo: out of stack space (infinite loop?)
  1246. while executing
  1247. "format %c $b"
  1248. (procedure "12days" line 5)
  1249. invoked from within
  1250. "12days -65 $b [string range $c 1 end]"
  1251. (procedure "12days" line 6)
  1252. invoked from within
  1253. "12days -65 $b [string range $c 1 end]"
  1254. (procedure "12days" line 6)
  1255. invoked from within
  1256. "12days -61 [scan [string index $c 0] %c x; set x] "!ek;dc i@bK'(q)-\[w\]*%n+r3#l,\{\}:\nuwloca-O;m .vpbks,fxntdCeghiry""
  1257. (procedure "12days" line 8)
  1258. invoked from within
  1259. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1260. (procedure "12days" line 6)
  1261. invoked from within
  1262. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1263. (procedure "12days" line 6)
  1264. invoked from within
  1265. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1266. (procedure "12days" line 6)
  1267. invoked from within
  1268. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1269. (procedure "12days" line 6)
  1270. invoked from within
  1271. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1272. (procedure "12days" line 6)
  1273. invoked from within
  1274. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1275. (procedure "12days" line 6)
  1276. invoked from within
  1277. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1278. (procedure "12days" line 6)
  1279. invoked from within
  1280. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1281. (procedure "12days" line 6)
  1282. invoked from within
  1283. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1284. (procedure "12days" line 6)
  1285. invoked from within
  1286. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1287. (procedure "12days" line 6)
  1288. invoked from within
  1289. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1290. (procedure "12days" line 6)
  1291. invoked from within
  1292. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1293. (procedure "12days" line 6)
  1294. invoked from within
  1295. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1296. (procedure "12days" line 6)
  1297. invoked from within
  1298. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1299. (procedure "12days" line 6)
  1300. invoked from within
  1301. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1302. (procedure "12days" line 6)
  1303. invoked from within
  1304. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1305. (procedure "12days" line 6)
  1306. invoked from within
  1307. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1308. (procedure "12days" line 6)
  1309. invoked from within
  1310. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1311. (procedure "12days" line 6)
  1312. invoked from within
  1313. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1314. (procedure "12days" line 6)
  1315. invoked from within
  1316. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1317. (procedure "12days" line 6)
  1318. invoked from within
  1319. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1320. (procedure "12days" line 6)
  1321. invoked from within
  1322. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1323. (procedure "12days" line 6)
  1324. invoked from within
  1325. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1326. (procedure "12days" line 6)
  1327. invoked from within
  1328. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1329. (procedure "12days" line 6)
  1330. invoked from within
  1331. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1332. (procedure "12days" line 6)
  1333. invoked from within
  1334. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1335. (procedure "12days" line 6)
  1336. invoked from within
  1337. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1338. (procedure "12days" line 6)
  1339. invoked from within
  1340. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1341. (procedure "12days" line 6)
  1342. invoked from within
  1343. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1344. (procedure "12days" line 6)
  1345. invoked from within
  1346. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1347. (procedure "12days" line 6)
  1348. invoked from within
  1349. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1350. (procedure "12days" line 6)
  1351. invoked from within
  1352. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1353. (procedure "12days" line 6)
  1354. invoked from within
  1355. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1356. (procedure "12days" line 6)
  1357. invoked from within
  1358. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1359. (procedure "12days" line 6)
  1360. invoked from within
  1361. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1362. (procedure "12days" line 6)
  1363. invoked from within
  1364. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1365. (procedure "12days" line 6)
  1366. invoked from within
  1367. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1368. (procedure "12days" line 6)
  1369. invoked from within
  1370. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1371. (procedure "12days" line 6)
  1372. invoked from within
  1373. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1374. (procedure "12days" line 6)
  1375. invoked from within
  1376. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1377. (procedure "12days" line 6)
  1378. invoked from within
  1379. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1380. (procedure "12days" line 6)
  1381. invoked from within
  1382. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1383. (procedure "12days" line 6)
  1384. invoked from within
  1385. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1386. (procedure "12days" line 6)
  1387. invoked from within
  1388. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1389. (procedure "12days" line 6)
  1390. invoked from within
  1391. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1392. (procedure "12days" line 6)
  1393. invoked from within
  1394. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1395. (procedure "12days" line 6)
  1396. invoked from within
  1397. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1398. (procedure "12days" line 6)
  1399. invoked from within
  1400. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1401. (procedure "12days" line 6)
  1402. invoked from within
  1403. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1404. (procedure "12days" line 6)
  1405. invoked from within
  1406. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1407. (procedure "12days" line 6)
  1408. invoked from within
  1409. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1410. (procedure "12days" line 6)
  1411. invoked from within
  1412. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1413. (procedure "12days" line 6)
  1414. invoked from within
  1415. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1416. (procedure "12days" line 6)
  1417. invoked from within
  1418. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1419. (procedure "12days" line 6)
  1420. invoked from within
  1421. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1422. (procedure "12days" line 6)
  1423. invoked from within
  1424. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1425. (procedure "12days" line 6)
  1426. invoked from within
  1427. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1428. (procedure "12days" line 6)
  1429. invoked from within
  1430. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1431. (procedure "12days" line 6)
  1432. invoked from within
  1433. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1434. (procedure "12days" line 6)
  1435. invoked from within
  1436. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1437. (procedure "12days" line 6)
  1438. invoked from within
  1439. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1440. (procedure "12days" line 6)
  1441. invoked from within
  1442. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1443. (procedure "12days" line 6)
  1444. invoked from within
  1445. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1446. (procedure "12days" line 6)
  1447. invoked from within
  1448. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1449. (procedure "12days" line 6)
  1450. invoked from within
  1451. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1452. (procedure "12days" line 6)
  1453. invoked from within
  1454. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1455. (procedure "12days" line 6)
  1456. invoked from within
  1457. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1458. (procedure "12days" line 6)
  1459. invoked from within
  1460. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1461. (procedure "12days" line 6)
  1462. invoked from within
  1463. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1464. (procedure "12days" line 6)
  1465. invoked from within
  1466. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1467. (procedure "12days" line 6)
  1468. invoked from within
  1469. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1470. (procedure "12days" line 6)
  1471. invoked from within
  1472. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1473. (procedure "12days" line 6)
  1474. invoked from within
  1475. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1476. (procedure "12days" line 6)
  1477. invoked from within
  1478. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1479. (procedure "12days" line 6)
  1480. invoked from within
  1481. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1482. (procedure "12days" line 6)
  1483. invoked from within
  1484. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1485. (procedure "12days" line 6)
  1486. invoked from within
  1487. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1488. (procedure "12days" line 6)
  1489. invoked from within
  1490. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1491. (procedure "12days" line 6)
  1492. invoked from within
  1493. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1494. (procedure "12days" line 6)
  1495. invoked from within
  1496. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1497. (procedure "12days" line 6)
  1498. invoked from within
  1499. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1500. (procedure "12days" line 6)
  1501. invoked from within
  1502. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1503. (procedure "12days" line 6)
  1504. invoked from within
  1505. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1506. (procedure "12days" line 6)
  1507. invoked from within
  1508. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1509. (procedure "12days" line 6)
  1510. invoked from within
  1511. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1512. (procedure "12days" line 6)
  1513. invoked from within
  1514. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1515. (procedure "12days" line 6)
  1516. invoked from within
  1517. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1518. (procedure "12days" line 6)
  1519. invoked from within
  1520. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1521. (procedure "12days" line 6)
  1522. invoked from within
  1523. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1524. (procedure "12days" line 6)
  1525. invoked from within
  1526. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1527. (procedure "12days" line 6)
  1528. invoked from within
  1529. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1530. (procedure "12days" line 6)
  1531. invoked from within
  1532. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1533. (procedure "12days" line 6)
  1534. invoked from within
  1535. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1536. (procedure "12days" line 6)
  1537. invoked from within
  1538. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1539. (procedure "12days" line 6)
  1540. invoked from within
  1541. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1542. (procedure "12days" line 6)
  1543. invoked from within
  1544. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1545. (procedure "12days" line 6)
  1546. invoked from within
  1547. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1548. (procedure "12days" line 6)
  1549. invoked from within
  1550. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1551. (procedure "12days" line 6)
  1552. invoked from within
  1553. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1554. (procedure "12days" line 6)
  1555. invoked from within
  1556. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1557. (procedure "12days" line 6)
  1558. invoked from within
  1559. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1560. (procedure "12days" line 6)
  1561. invoked from within
  1562. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1563. (procedure "12days" line 6)
  1564. invoked from within
  1565. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1566. (procedure "12days" line 6)
  1567. invoked from within
  1568. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1569. (procedure "12days" line 6)
  1570. invoked from within
  1571. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1572. (procedure "12days" line 6)
  1573. invoked from within
  1574. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1575. (procedure "12days" line 6)
  1576. invoked from within
  1577. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1578. (procedure "12days" line 6)
  1579. invoked from within
  1580. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1581. (procedure "12days" line 6)
  1582. invoked from within
  1583. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1584. (procedure "12days" line 6)
  1585. invoked from within
  1586. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1587. (procedure "12days" line 6)
  1588. invoked from within
  1589. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1590. (procedure "12days" line 6)
  1591. invoked from within
  1592. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1593. (procedure "12days" line 6)
  1594. invoked from within
  1595. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1596. (procedure "12days" line 6)
  1597. invoked from within
  1598. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1599. (procedure "12days" line 6)
  1600. invoked from within
  1601. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1602. (procedure "12days" line 6)
  1603. invoked from within
  1604. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1605. (procedure "12days" line 6)
  1606. invoked from within
  1607. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1608. (procedure "12days" line 6)
  1609. invoked from within
  1610. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1611. (procedure "12days" line 6)
  1612. invoked from within
  1613. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1614. (procedure "12days" line 6)
  1615. invoked from within
  1616. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1617. (procedure "12days" line 6)
  1618. invoked from within
  1619. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1620. (procedure "12days" line 6)
  1621. invoked from within
  1622. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1623. (procedure "12days" line 6)
  1624. invoked from within
  1625. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1626. (procedure "12days" line 6)
  1627. invoked from within
  1628. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1629. (procedure "12days" line 6)
  1630. invoked from within
  1631. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1632. (procedure "12days" line 6)
  1633. invoked from within
  1634. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1635. (procedure "12days" line 6)
  1636. invoked from within
  1637. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1638. (procedure "12days" line 6)
  1639. invoked from within
  1640. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1641. (procedure "12days" line 6)
  1642. invoked from within
  1643. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1644. (procedure "12days" line 6)
  1645. invoked from within
  1646. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1647. (procedure "12days" line 6)
  1648. invoked from within
  1649. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1650. (procedure "12days" line 6)
  1651. invoked from within
  1652. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1653. (procedure "12days" line 6)
  1654. invoked from within
  1655. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1656. (procedure "12days" line 6)
  1657. invoked from within
  1658. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1659. (procedure "12days" line 6)
  1660. invoked from within
  1661. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1662. (procedure "12days" line 6)
  1663. invoked from within
  1664. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1665. (procedure "12days" line 6)
  1666. invoked from within
  1667. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1668. (procedure "12days" line 6)
  1669. invoked from within
  1670. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1671. (procedure "12days" line 6)
  1672. invoked from within
  1673. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1674. (procedure "12days" line 6)
  1675. invoked from within
  1676. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1677. (procedure "12days" line 6)
  1678. invoked from within
  1679. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1680. (procedure "12days" line 6)
  1681. invoked from within
  1682. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1683. (procedure "12days" line 6)
  1684. invoked from within
  1685. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1686. (procedure "12days" line 6)
  1687. invoked from within
  1688. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1689. (procedure "12days" line 6)
  1690. invoked from within
  1691. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1692. (procedure "12days" line 6)
  1693. invoked from within
  1694. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1695. (procedure "12days" line 6)
  1696. invoked from within
  1697. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1698. (procedure "12days" line 6)
  1699. invoked from within
  1700. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1701. (procedure "12days" line 6)
  1702. invoked from within
  1703. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1704. (procedure "12days" line 6)
  1705. invoked from within
  1706. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1707. (procedure "12days" line 6)
  1708. invoked from within
  1709. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1710. (procedure "12days" line 6)
  1711. invoked from within
  1712. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1713. (procedure "12days" line 6)
  1714. invoked from within
  1715. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1716. (procedure "12days" line 6)
  1717. invoked from within
  1718. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1719. (procedure "12days" line 6)
  1720. invoked from within
  1721. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1722. (procedure "12days" line 6)
  1723. invoked from within
  1724. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1725. (procedure "12days" line 6)
  1726. invoked from within
  1727. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1728. (procedure "12days" line 6)
  1729. invoked from within
  1730. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1731. (procedure "12days" line 6)
  1732. invoked from within
  1733. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1734. (procedure "12days" line 6)
  1735. invoked from within
  1736. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1737. (procedure "12days" line 6)
  1738. invoked from within
  1739. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1740. (procedure "12days" line 6)
  1741. invoked from within
  1742. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1743. (procedure "12days" line 6)
  1744. invoked from within
  1745. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1746. (procedure "12days" line 6)
  1747. invoked from within
  1748. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1749. (procedure "12days" line 6)
  1750. invoked from within
  1751. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1752. (procedure "12days" line 6)
  1753. invoked from within
  1754. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1755. (procedure "12days" line 6)
  1756. invoked from within
  1757. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1758. (procedure "12days" line 6)
  1759. invoked from within
  1760. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1761. (procedure "12days" line 6)
  1762. invoked from within
  1763. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1764. (procedure "12days" line 6)
  1765. invoked from within
  1766. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1767. (procedure "12days" line 6)
  1768. invoked from within
  1769. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1770. (procedure "12days" line 6)
  1771. invoked from within
  1772. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1773. (procedure "12days" line 6)
  1774. invoked from within
  1775. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1776. (procedure "12days" line 6)
  1777. invoked from within
  1778. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1779. (procedure "12days" line 6)
  1780. invoked from within
  1781. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1782. (procedure "12days" line 6)
  1783. invoked from within
  1784. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1785. (procedure "12days" line 6)
  1786. invoked from within
  1787. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1788. (procedure "12days" line 6)
  1789. invoked from within
  1790. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1791. (procedure "12days" line 6)
  1792. invoked from within
  1793. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1794. (procedure "12days" line 6)
  1795. invoked from within
  1796. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1797. (procedure "12days" line 6)
  1798. invoked from within
  1799. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1800. (procedure "12days" line 6)
  1801. invoked from within
  1802. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1803. (procedure "12days" line 6)
  1804. invoked from within
  1805. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1806. (procedure "12days" line 6)
  1807. invoked from within
  1808. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1809. (procedure "12days" line 6)
  1810. invoked from within
  1811. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1812. (procedure "12days" line 6)
  1813. invoked from within
  1814. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1815. (procedure "12days" line 6)
  1816. invoked from within
  1817. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1818. (procedure "12days" line 6)
  1819. invoked from within
  1820. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1821. (procedure "12days" line 6)
  1822. invoked from within
  1823. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1824. (procedure "12days" line 6)
  1825. invoked from within
  1826. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1827. (procedure "12days" line 6)
  1828. invoked from within
  1829. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1830. (procedure "12days" line 6)
  1831. invoked from within
  1832. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1833. (procedure "12days" line 6)
  1834. invoked from within
  1835. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1836. (procedure "12days" line 6)
  1837. invoked from within
  1838. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1839. (procedure "12days" line 6)
  1840. invoked from within
  1841. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1842. (procedure "12days" line 6)
  1843. invoked from within
  1844. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1845. (procedure "12days" line 6)
  1846. invoked from within
  1847. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1848. (procedure "12days" line 6)
  1849. invoked from within
  1850. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1851. (procedure "12days" line 6)
  1852. invoked from within
  1853. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1854. (procedure "12days" line 6)
  1855. invoked from within
  1856. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1857. (procedure "12days" line 6)
  1858. invoked from within
  1859. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1860. (procedure "12days" line 6)
  1861. invoked from within
  1862. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1863. (procedure "12days" line 6)
  1864. invoked from within
  1865. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1866. (procedure "12days" line 6)
  1867. invoked from within
  1868. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1869. (procedure "12days" line 6)
  1870. invoked from within
  1871. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1872. (procedure "12days" line 6)
  1873. invoked from within
  1874. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1875. (procedure "12days" line 6)
  1876. invoked from within
  1877. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1878. (procedure "12days" line 6)
  1879. invoked from within
  1880. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1881. (procedure "12days" line 6)
  1882. invoked from within
  1883. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1884. (procedure "12days" line 6)
  1885. invoked from within
  1886. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1887. (procedure "12days" line 6)
  1888. invoked from within
  1889. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1890. (procedure "12days" line 6)
  1891. invoked from within
  1892. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1893. (procedure "12days" line 6)
  1894. invoked from within
  1895. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1896. (procedure "12days" line 6)
  1897. invoked from within
  1898. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1899. (procedure "12days" line 6)
  1900. invoked from within
  1901. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1902. (procedure "12days" line 6)
  1903. invoked from within
  1904. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1905. (procedure "12days" line 6)
  1906. invoked from within
  1907. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1908. (procedure "12days" line 6)
  1909. invoked from within
  1910. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1911. (procedure "12days" line 6)
  1912. invoked from within
  1913. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1914. (procedure "12days" line 6)
  1915. invoked from within
  1916. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1917. (procedure "12days" line 6)
  1918. invoked from within
  1919. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1920. (procedure "12days" line 6)
  1921. invoked from within
  1922. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1923. (procedure "12days" line 6)
  1924. invoked from within
  1925. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1926. (procedure "12days" line 6)
  1927. invoked from within
  1928. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1929. (procedure "12days" line 6)
  1930. invoked from within
  1931. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1932. (procedure "12days" line 6)
  1933. invoked from within
  1934. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1935. (procedure "12days" line 6)
  1936. invoked from within
  1937. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1938. (procedure "12days" line 6)
  1939. invoked from within
  1940. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1941. (procedure "12days" line 6)
  1942. invoked from within
  1943. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1944. (procedure "12days" line 6)
  1945. invoked from within
  1946. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1947. (procedure "12days" line 6)
  1948. invoked from within
  1949. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1950. (procedure "12days" line 6)
  1951. invoked from within
  1952. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1953. (procedure "12days" line 6)
  1954. invoked from within
  1955. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1956. (procedure "12days" line 6)
  1957. invoked from within
  1958. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1959. (procedure "12days" line 6)
  1960. invoked from within
  1961. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1962. (procedure "12days" line 6)
  1963. invoked from within
  1964. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1965. (procedure "12days" line 6)
  1966. invoked from within
  1967. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1968. (procedure "12days" line 6)
  1969. invoked from within
  1970. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1971. (procedure "12days" line 6)
  1972. invoked from within
  1973. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1974. (procedure "12days" line 6)
  1975. invoked from within
  1976. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1977. (procedure "12days" line 6)
  1978. invoked from within
  1979. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1980. (procedure "12days" line 6)
  1981. invoked from within
  1982. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1983. (procedure "12days" line 6)
  1984. invoked from within
  1985. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1986. (procedure "12days" line 6)
  1987. invoked from within
  1988. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1989. (procedure "12days" line 6)
  1990. invoked from within
  1991. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1992. (procedure "12days" line 6)
  1993. invoked from within
  1994. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1995. (procedure "12days" line 6)
  1996. invoked from within
  1997. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  1998. (procedure "12days" line 6)
  1999. invoked from within
  2000. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2001. (procedure "12days" line 6)
  2002. invoked from within
  2003. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2004. (procedure "12days" line 6)
  2005. invoked from within
  2006. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2007. (procedure "12days" line 6)
  2008. invoked from within
  2009. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2010. (procedure "12days" line 6)
  2011. invoked from within
  2012. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2013. (procedure "12days" line 6)
  2014. invoked from within
  2015. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2016. (procedure "12days" line 6)
  2017. invoked from within
  2018. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2019. (procedure "12days" line 6)
  2020. invoked from within
  2021. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2022. (procedure "12days" line 6)
  2023. invoked from within
  2024. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2025. (procedure "12days" line 6)
  2026. invoked from within
  2027. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2028. (procedure "12days" line 6)
  2029. invoked from within
  2030. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2031. (procedure "12days" line 6)
  2032. invoked from within
  2033. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2034. (procedure "12days" line 6)
  2035. invoked from within
  2036. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2037. (procedure "12days" line 6)
  2038. invoked from within
  2039. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2040. (procedure "12days" line 6)
  2041. invoked from within
  2042. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2043. (procedure "12days" line 6)
  2044. invoked from within
  2045. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2046. (procedure "12days" line 6)
  2047. invoked from within
  2048. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2049. (procedure "12days" line 6)
  2050. invoked from within
  2051. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2052. (procedure "12days" line 6)
  2053. invoked from within
  2054. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2055. (procedure "12days" line 6)
  2056. invoked from within
  2057. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2058. (procedure "12days" line 6)
  2059. invoked from within
  2060. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2061. (procedure "12days" line 6)
  2062. invoked from within
  2063. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2064. (procedure "12days" line 6)
  2065. invoked from within
  2066. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2067. (procedure "12days" line 6)
  2068. invoked from within
  2069. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2070. (procedure "12days" line 6)
  2071. invoked from within
  2072. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2073. (procedure "12days" line 6)
  2074. invoked from within
  2075. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2076. (procedure "12days" line 6)
  2077. invoked from within
  2078. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2079. (procedure "12days" line 6)
  2080. invoked from within
  2081. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2082. (procedure "12days" line 6)
  2083. invoked from within
  2084. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2085. (procedure "12days" line 6)
  2086. invoked from within
  2087. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2088. (procedure "12days" line 6)
  2089. invoked from within
  2090. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2091. (procedure "12days" line 6)
  2092. invoked from within
  2093. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2094. (procedure "12days" line 6)
  2095. invoked from within
  2096. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2097. (procedure "12days" line 6)
  2098. invoked from within
  2099. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2100. (procedure "12days" line 6)
  2101. invoked from within
  2102. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2103. (procedure "12days" line 6)
  2104. invoked from within
  2105. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2106. (procedure "12days" line 6)
  2107. invoked from within
  2108. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2109. (procedure "12days" line 6)
  2110. invoked from within
  2111. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2112. (procedure "12days" line 6)
  2113. invoked from within
  2114. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2115. (procedure "12days" line 6)
  2116. invoked from within
  2117. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2118. (procedure "12days" line 6)
  2119. invoked from within
  2120. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2121. (procedure "12days" line 6)
  2122. invoked from within
  2123. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2124. (procedure "12days" line 6)
  2125. invoked from within
  2126. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2127. (procedure "12days" line 6)
  2128. invoked from within
  2129. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2130. (procedure "12days" line 6)
  2131. invoked from within
  2132. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2133. (procedure "12days" line 6)
  2134. invoked from within
  2135. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2136. (procedure "12days" line 6)
  2137. invoked from within
  2138. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2139. (procedure "12days" line 6)
  2140. invoked from within
  2141. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2142. (procedure "12days" line 6)
  2143. invoked from within
  2144. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2145. (procedure "12days" line 6)
  2146. invoked from within
  2147. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2148. (procedure "12days" line 6)
  2149. invoked from within
  2150. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2151. (procedure "12days" line 6)
  2152. invoked from within
  2153. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2154. (procedure "12days" line 6)
  2155. invoked from within
  2156. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2157. (procedure "12days" line 6)
  2158. invoked from within
  2159. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2160. (procedure "12days" line 6)
  2161. invoked from within
  2162. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2163. (procedure "12days" line 6)
  2164. invoked from within
  2165. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2166. (procedure "12days" line 6)
  2167. invoked from within
  2168. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2169. (procedure "12days" line 6)
  2170. invoked from within
  2171. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2172. (procedure "12days" line 6)
  2173. invoked from within
  2174. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2175. (procedure "12days" line 6)
  2176. invoked from within
  2177. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2178. (procedure "12days" line 6)
  2179. invoked from within
  2180. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2181. (procedure "12days" line 6)
  2182. invoked from within
  2183. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2184. (procedure "12days" line 6)
  2185. invoked from within
  2186. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2187. (procedure "12days" line 6)
  2188. invoked from within
  2189. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2190. (procedure "12days" line 6)
  2191. invoked from within
  2192. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2193. (procedure "12days" line 6)
  2194. invoked from within
  2195. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2196. (procedure "12days" line 6)
  2197. invoked from within
  2198. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2199. (procedure "12days" line 6)
  2200. invoked from within
  2201. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2202. (procedure "12days" line 6)
  2203. invoked from within
  2204. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2205. (procedure "12days" line 6)
  2206. invoked from within
  2207. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2208. (procedure "12days" line 6)
  2209. invoked from within
  2210. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2211. (procedure "12days" line 6)
  2212. invoked from within
  2213. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2214. (procedure "12days" line 6)
  2215. invoked from within
  2216. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2217. (procedure "12days" line 6)
  2218. invoked from within
  2219. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2220. (procedure "12days" line 6)
  2221. invoked from within
  2222. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2223. (procedure "12days" line 6)
  2224. invoked from within
  2225. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2226. (procedure "12days" line 6)
  2227. invoked from within
  2228. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2229. (procedure "12days" line 6)
  2230. invoked from within
  2231. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2232. (procedure "12days" line 6)
  2233. invoked from within
  2234. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2235. (procedure "12days" line 6)
  2236. invoked from within
  2237. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2238. (procedure "12days" line 6)
  2239. invoked from within
  2240. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2241. (procedure "12days" line 6)
  2242. invoked from within
  2243. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2244. (procedure "12days" line 6)
  2245. invoked from within
  2246. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2247. (procedure "12days" line 6)
  2248. invoked from within
  2249. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2250. (procedure "12days" line 6)
  2251. invoked from within
  2252. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2253. (procedure "12days" line 6)
  2254. invoked from within
  2255. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2256. (procedure "12days" line 6)
  2257. invoked from within
  2258. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2259. (procedure "12days" line 6)
  2260. invoked from within
  2261. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2262. (procedure "12days" line 6)
  2263. invoked from within
  2264. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2265. (procedure "12days" line 6)
  2266. invoked from within
  2267. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2268. (procedure "12days" line 6)
  2269. invoked from within
  2270. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2271. (procedure "12days" line 6)
  2272. invoked from within
  2273. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2274. (procedure "12days" line 6)
  2275. invoked from within
  2276. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2277. (procedure "12days" line 6)
  2278. invoked from within
  2279. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2280. (procedure "12days" line 6)
  2281. invoked from within
  2282. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2283. (procedure "12days" line 6)
  2284. invoked from within
  2285. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2286. (procedure "12days" line 6)
  2287. invoked from within
  2288. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2289. (procedure "12days" line 6)
  2290. invoked from within
  2291. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2292. (procedure "12days" line 6)
  2293. invoked from within
  2294. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2295. (procedure "12days" line 6)
  2296. invoked from within
  2297. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2298. (procedure "12days" line 6)
  2299. invoked from within
  2300. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2301. (procedure "12days" line 6)
  2302. invoked from within
  2303. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2304. (procedure "12days" line 6)
  2305. invoked from within
  2306. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2307. (procedure "12days" line 6)
  2308. invoked from within
  2309. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2310. (procedure "12days" line 6)
  2311. invoked from within
  2312. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2313. (procedure "12days" line 6)
  2314. invoked from within
  2315. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2316. (procedure "12days" line 6)
  2317. invoked from within
  2318. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2319. (procedure "12days" line 6)
  2320. invoked from within
  2321. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2322. (procedure "12days" line 6)
  2323. invoked from within
  2324. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2325. (procedure "12days" line 6)
  2326. invoked from within
  2327. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2328. (procedure "12days" line 6)
  2329. invoked from within
  2330. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2331. (procedure "12days" line 6)
  2332. invoked from within
  2333. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2334. (procedure "12days" line 6)
  2335. invoked from within
  2336. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2337. (procedure "12days" line 6)
  2338. invoked from within
  2339. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2340. (procedure "12days" line 6)
  2341. invoked from within
  2342. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2343. (procedure "12days" line 6)
  2344. invoked from within
  2345. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2346. (procedure "12days" line 6)
  2347. invoked from within
  2348. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2349. (procedure "12days" line 6)
  2350. invoked from within
  2351. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2352. (procedure "12days" line 6)
  2353. invoked from within
  2354. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2355. (procedure "12days" line 6)
  2356. invoked from within
  2357. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2358. (procedure "12days" line 6)
  2359. invoked from within
  2360. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2361. (procedure "12days" line 6)
  2362. invoked from within
  2363. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2364. (procedure "12days" line 6)
  2365. invoked from within
  2366. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2367. (procedure "12days" line 6)
  2368. invoked from within
  2369. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2370. (procedure "12days" line 6)
  2371. invoked from within
  2372. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2373. (procedure "12days" line 6)
  2374. invoked from within
  2375. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2376. (procedure "12days" line 6)
  2377. invoked from within
  2378. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2379. (procedure "12days" line 6)
  2380. invoked from within
  2381. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2382. (procedure "12days" line 6)
  2383. invoked from within
  2384. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2385. (procedure "12days" line 6)
  2386. invoked from within
  2387. "12days [expr ([string compare [string index $c 0] "/"]==0)+$a] $b [string range $c 1 end]"
  2388. (procedure "12days" line 6)
  2389. invoked from within
  2390. "12days $b $a "@n'+,#'/*\{\}w+/w#cdnr/+,\{\}r/*de\}+,/*\{*+,/w\{%+,/w#q#n+,/#\{l+,/n\{n+,/+#n+,/#;#q#n+,/+k#;*+,/'r :'d*'3,\}\{w+K w'K:'+\}e#';dq#'l q#..."
  2391. (procedure "12days" line 4)
  2392. invoked from within
  2393. "12days -94 [expr $a-27] $c"
  2394. (procedure "12days" line 3)
  2395. invoked from within
  2396. "12days 2 2 "%s""
  2397. (procedure "12days" line 7)
  2398. invoked from within
  2399. "12days 1 1 1"
  2400. (procedure "do_twelve_days" line 4)
  2401. invoked from within
  2402. "do_twelve_days"
  2403. ("uplevel" body line 3)
  2404. invoked from within
  2405. "uplevel 1 $script"
  2406. ---- errorCode: NONE
  2407. ==== expr-3.8 FAILED
  2408.