sub all_eq4 {
    local$"='';
    "@_"eq$_[0]x@_
}
# 25 chars