!: :: /=main=/bin/pope/hoon :: => .(+ =>(+ ^/===/lib/pony)) |= [est=time *] |= [who=@p ~] ^- bowl %+ (polo %pass "passphrase: " ~ ~) (boss 256 (more gon qit)) |= [now=@da fra=@] %+ pomp "generating carrier {(scow %p who)} (#{(scow %ud who)})" %- (posh (add ~s1 now)) |= now=@da :_ ~ =+ bur=(shax (add who (shax fra))) =+ arc=(bruw 2.048 bur) :~ [%la %leaf "generator: {(scow %uw bur)}"] [%la %leaf "fingerprint: {(scow %uw fig:ex:arc)}"] ==