##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: August 2016 # Modified: 2016-10-03/22:55-0400 ##+ # # initial.icn, demonstrate an initial expression # procedure main() c := subproc() write(image(c)) c := subproc() write(image(c)) end procedure subproc() local a static b # a will only be set on the first call initial { a := "abc" b := "bcd" } write(b) return a end