main=interact$f.lines
f l=unlines[y|n<-[0..24],y<-l,n==fst(last$foldl(\l@((n,a):r)y->scanl(\(i,b)((j,c),(k,d))->(minimum[i,k,j-sum[1|y==d]]+1,d))(n+1,a)$zip l r)(zip[0..]$' ':l!!0)y)]