Base64 encoding in forth