procedure main(A)
   /mh := \A[1] | 12
   /mw := \A[2] | 16
   mz := DisplayMaze(GenerateMaze(mh,mw))
   WriteImage(mz.filename)              # save file
   WAttrib(mz.window,"canvas=normal")   # show it
   until Event() == &lpress # wait for left mouse press
   Solver(mz.maze)
   DisplayMazeSolution(mz)
   WriteImage(mz.filename ?:= (="maze-", "maze-solved-" || tab(0)))
   until Event() == &lpress # wait
   close(mz.window)
end