+
+ $(n=1;
+ while [ -n "${tpy[session${session_n}_note${n}]+x}" ]; do
+ if [ -n "${tpy[session${session_n}_note${n}]}" ]; then
+ x=$n
+ fi
+ n=$(($n + 1))
+ done
+ for n in $(seq 1 $((${x:-0} + 3)) ); do t_session_note $session_n $n; done
+ )
+
+
+
+ EOF
+}
+
+therapy_sessions(){
+ n=1; while [ -n "${tpy[session${n}]}" ]; do
+ t_session $n
+ n=$(($n+1))
+ done
+
+ sid=session$n
+
+ cat <<-EOF
+