# down 1;;
----------------------------------------
# # # 
1 0 1 
....main....
[ext] H  A type
====
[ext] H  A type

BY 

++++++++++
- : unit = ()
# refine nthAssumT 1;;
----------------------------------------
# # * 
1 1 0 
....main....
[ext] H  A type
====
[ext] H  A type

BY nthAssumT 1

++++++++++
- : unit = ()
# 