#!/bin/bash

read line

anglerfishes=( ${line//,/ } )
new_anglerfishes=(0 0 0 0 0 0 0 0 0)
for i in $(seq ${#anglerfishes[@]}); do
  new_anglerfishes[${anglerfishes[$((i-1))]}]=$((new_anglerfishes[anglerfishes[i-1]]+1))
done
anglerfishes=( "${new_anglerfishes[@]}" )
for i in $(seq 256); do
  new_anglerfishes=(0 0 0 0 0 0 0 0 0)
  for j in $(seq 2 9); do
    new_anglerfishes[$((j-2))]=${anglerfishes[$((j-1))]}
  done
  new_anglerfishes[6]=$((anglerfishes[0]+new_anglerfishes[6]))
  new_anglerfishes[8]=$((anglerfishes[0]+new_anglerfishes[8]))
  anglerfishes=( "${new_anglerfishes[@]}" )
done
total_anglerfishes=$(sed 's/ /+/g' <<< "${anglerfishes[@]}")
echo $((total_anglerfishes))