set $inicial '1'

auto 1 {dontlist} if [$mg == 0] {set $pgs '$inicial' | set $ss '$inicial' | set $ags '$inicial' | set $pqs '$inicial' | set $dif '0'}            
auto 1 {dontlist} foreach 'newmessages' $msns {if [$msns.isdefault == 1 && $cutstr.'$msns.content'.2.4 == 'Task' ]  {set $mg '$curmsg.content'}}
auto 1 {dontlist} if [$cutstr.'$mg'.$pgs.1 != '/' && $mg != 0] {set $pgs '[$pgs+1]' | set $pqs '$cutstr.'$mg'.$pgs.1'}
auto 1 {dontlist} if [$mg != 0 && $cutstr.'$mg'.$ss.1 != 'd'] {set $ss '[$ss+1]' | set $ags '$cutstr.'$mg'.$ss.1'}}
auto 1 {dontlist} if [$pqs == '/'] {set $n1s '$cutstr.'$mg'.[$ss+3].[$pgs-$ss-3]' | set $n2s '$cutstr.'$mg'.[$pgs+1].3' | set $dif '[$n2s-$n1s]'}    
auto 1000 {dontlist} if [$mg != 0 && $key.112 == 0] {say "$dif" | set $mg '0'}