input""n
?mid$("-_---",mod(n,5)+1,mod(n,12))