- Produce exactly 1 copy of itself
- Name the copy "4"
- Not execute the copied file
- Print, return, or display the number 4

[ LIT2 13 -File/length ] DEO2
INC [ LIT2 -&filename -File/name ] DEO2
INC SWP .File/write DEO2
[ LIT2 "4 18 ] DEO
&filename "4

Which, assembles in 19 bytes:

a013 aa37 01a0 12a8 3701 0480 ae37 a034
1817 34

binary.golf/4/
#uxn #bggp4