There's an extra `picked ...' line for this case.
read -p k _
case $k in id) ;; *) bail "unexpected second-line token \`$k'" ;; esac
read -p k _
read -p k _
case $k in id) ;; *) bail "unexpected second-line token \`$k'" ;; esac
read -p k _
+ case $k in picked) read -p k _ ;; esac
case $k in played) ;; *) bail "unexpected third-line token \`$k'" ;; esac
read -pA t
case $t[-1] in started | ok) st="" ;; paused) st=" (paused)" ;; esac
case $k in played) ;; *) bail "unexpected third-line token \`$k'" ;; esac
read -pA t
case $t[-1] in started | ok) st="" ;; paused) st=" (paused)" ;; esac