s = io.read()
other, lo, as = 0, 0, 0
for i = 1, 8 do
  b = s:sub(i, i)
  if b == "l" or b == "o" then
    lo = lo + 1
  elseif b == "a" or b == "s" then
    as = as + 1
  else
    other = other + 1
  end
end
local v = (bit.lshift(1, lo) - 1) * (bit.lshift(1, as) - 1)
if other == 0 then v = v - 1 end
print(math.max(0, v))