//nodding off set sa 20 set sb 40 set sc 65 set sd 100 set nod 5 //start getting sleepy repeat s 0 (sa*3) { paper (s/3) } paper (sa-nod) //sleepier repeat s ((sa-nod)*2) (sb*2) { paper (s/2) } paper (sb-nod) //fell asleep repeat s (sb-nod) sc { paper s } paper (sc-nod) //stay asleep repeat s (sc-nod) sd { paper s }