7 lines
259 B
Text
7 lines
259 B
Text
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
|