2 lines
41 B

coin4.pm -const K=2
coin4.pm -const K=4