Usually not satisfied with algorithmic melody, but this approach – dump some anchor notes at random points in the bar, then use 1/f noise to fill in the gaps – did better than most other approaches I’ve tried 
/ld = "\ins("@", 1..3, 0.5)::\shuf("1345794'", "@")::\stuttPitch(, 8, 0.25, 0.4, 10, "\vossdiff("11111")", "~", "@", "*")::\artic(">~", "@")::\artic("~~_")";
hjh