let rec(!)?(c=input_byte stdin)d=print_string(String.make(abs(c-d))"+---".[d/c]^".");!c;;!0