define count occurrences of (item)
set [output v] to (0)
if <[list v] contains (item)> then
set [i v] to (0)
repeat (length of [list v])
change [i v] by (1)
if <(item (i) of [list v]) = (item)> then
change [output v] by (1)
end
end
end