var uart*: ptr uint8 = cast[ptr uint8](0x09000000)

proc printTxt*(str: seq[char]) =
    for i in 0..<len(str):
        uart[] = cast[uint8](str[i])