FORHILLARY

INCLUDE QUESTION
BOOL should_admit

PROGRAM email
! Simple program to deal with email question management

IF QUESTION.ABOUT_EMAIL
GOTO USE_PERSONAL_EMAIL

USE_PERSONAL_EMAIL
GOTO SAY_REASONS
should_admit=FALSE

SAY_REASONS
reasons=RAND[1..3]
IF reasons 1
PRINT "I used it for convenience"
IF reasons 2
PRINT "Having one device is easier"
IF reasons3
PRINT "I don't want personal stuff and work stuff on the same address"
GOTO

END PROGRAM email