##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: August 2016
# Modified: 2016-10-25/23:42-0400
##+
#
# &random seed, seeds the internal pseudo-random sequencer used by unary ?
#
procedure main()
    write(&random)
    every 1 to 3 do writes(?&letters)
    write()
    write()
    &random := 1
    every 1 to 3 do writes(?&letters)
    write()
    write(&random)
end