let rec($)s a=a=0&()=print_endline s||s^"."$a-1&s^"#"$a-1;;""$read_int()