:- set_prolog_flag(verbose,silent).
:- prompt(_, '').
:- use_module(library(readutil)).
 
fact(0,1):-!.
fact(N,Res2):-N2 is N-1,fact(N2,Res),Res2 is Res*N.
 
f(N2):-member(N,[9,8,7,6,5,4,3,2,1,0]),fact(N,N2).
 
g(_,[],[],[]):-!.
g(N,Ns,[P|Ps],[M|Res]):-P2 is N//P,
						N2 is N mod P,
						length(Ls,P2),
						append(Ls,[M|Rs],Ns),
						append(Ls,Rs,Ns2),
						g(N2,Ns2,Ps,Res).
 
main:-
	process,
	halt.
 
process:-
	/* your code goes here */
	findall(P,f(P),Ps),
	g(999999,[0,1,2,3,4,5,6,7,8,9],Ps,Ans),
	write(Ans),
	true.
 
:- main.

Oi0gc2V0X3Byb2xvZ19mbGFnKHZlcmJvc2Usc2lsZW50KS4KOi0gcHJvbXB0KF8sICcnKS4KOi0gdXNlX21vZHVsZShsaWJyYXJ5KHJlYWR1dGlsKSkuCgpmYWN0KDAsMSk6LSEuCmZhY3QoTixSZXMyKTotTjIgaXMgTi0xLGZhY3QoTjIsUmVzKSxSZXMyIGlzIFJlcypOLgoKZihOMik6LW1lbWJlcihOLFs5LDgsNyw2LDUsNCwzLDIsMSwwXSksZmFjdChOLE4yKS4KCmcoXyxbXSxbXSxbXSk6LSEuCmcoTixOcyxbUHxQc10sW018UmVzXSk6LVAyIGlzIE4vL1AsCgkJCQkJCU4yIGlzIE4gbW9kIFAsCgkJCQkJCWxlbmd0aChMcyxQMiksCgkJCQkJCWFwcGVuZChMcyxbTXxSc10sTnMpLAoJCQkJCQlhcHBlbmQoTHMsUnMsTnMyKSwKCQkJCQkJZyhOMixOczIsUHMsUmVzKS4KCm1haW46LQoJcHJvY2VzcywKCWhhbHQuCgpwcm9jZXNzOi0KCS8qIHlvdXIgY29kZSBnb2VzIGhlcmUgKi8KCWZpbmRhbGwoUCxmKFApLFBzKSwKCWcoOTk5OTk5LFswLDEsMiwzLDQsNSw2LDcsOCw5XSxQcyxBbnMpLAoJd3JpdGUoQW5zKSwKCXRydWUuCgo6LSBtYWluLg==