#OK to post
#Rebecca Embar, Homework 15

#1
DecDigits:=proc(a,K) local i:
	[seq(trunc(a*10^i) mod 10, i=0..K-1)]:
end: