\define getScoreTiddler() $:/score/{{!!title}}
\define countScore()
<$action-deletetiddler $filter="[prefix[$:/temp]tag[ScoreTiddler]tag[$(scoreTiddler)$]]"/>
<$list filter="[all[current]fields[]] -text -title" variable=F >
<$list filter="[all[current]get<F>match[correct]]" >
<$action-createtiddler $basetitle="$:/temp" tags="ScoreTiddler [[$(scoreTiddler)$]]"/>
</$list>
</$list>
<$set name=c filter="[prefix[$:/temp]tag[ScoreTiddler]tag[$(scoreTiddler)$]count[]]">
<$action-setfield $tiddler="$(scoreTiddler)$" text=<<c>> />
</$set>
\end
<$wikify name=scoreTiddler text=<<getScoreTiddler>> >
<$button actions=<<countScore>> >
Count score
</$button>
Score: <$transclude tiddler=<<scoreTiddler>> />
</$wikify>