a <- "m\u00f8\u00f8se"
print(nchar(a, type="bytes"))  # print 7