/* nicholas.tc - 12/12/2011

pn int n [
 MC n,14
 ]

dpf int n,d,p [
 if p [pn 10*n/d;dpf 10*n%d,d,p-1]
 ]

/* http://www.primepuzzle.com/tunxis/nicholas.html

me [
 pl""
 pn 30%19;ps "/";pn 19;ps"=.";dpf 30%19,19,3;pl""
 pn 21%19;ps "/";pn 19;ps"=.";dpf 21%19,19,3;pl""
 pn 28%19;ps "/";pn 19;ps"=.";dpf 28%19,19,3;pl""
 ]