main=interact(\s->unlines$scanl(\a _->last a:init a)s$init$s)