##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: December, 2016 # Modified: 2016-12-17/10:29-0500 ##+ # # onestatement.icn, a single statement # # tectonics: # unicon -c onestatement.icn # procedure onestatement() u := 1 end