1*44118Sbosticimplementation module imported; 2*44118Sbostic 3*44118Sbostictype 4*44118Sbostic OT = integer; 5*44118Sbosticvar 6*44118Sbostic p : OT; 7*44118Sbostic 8*44118Sbosticprocedure Blah; 9*44118Sbosticbegin 10*44118Sbostic p := 3; 11*44118Sbosticend Blah; 12*44118Sbostic 13*44118Sbosticend imported. 14