do-prime macro updated