start_up = proc ()
    po: stream := stream$primary_output()

    stream$putl(po, "5**3**2   = " || int$unparse(5**3**2))
    stream$putl(po, "(5**3)**2 = " || int$unparse((5**3)**2))
    stream$putl(po, "5**(3**2) = " || int$unparse(5**(3**2)))
end start_up