s/: \w*$/pop@@while grep$_%9==$`%9,@@;@r[1..@@]=@@=($`,@@)/efor`xargs seq|factor`;print$r[-1]