main=mapM(\y->putStrLn[scanl min '-'x!!y|x<-mapM(:" -")"----"])[0..]