;test compile_file

block aq
 x=0
 ty, 'before compile_file'
 compile_file, 'compile_test1'
 ty, 'after compile_file'
 afun, x
 ty,'x =',x
 endblock