#!/bin/ksh -p
# Improved version of Unix "uptime" command.
# Ksh version.

set -A main $(uptime)

set -A users $(who|sort|awk '{print $1}'|uniq)
users=${#users[*]}

c=1 
for a in ${main[*]} ; do
  if [[ "$a" == "average:" ]] ; then
    c=$((c+1))
    load=${main[$c]}
    c=$((c-1))
  fi
  c=$((c+1))
done

load=$(print $load | sed 's/,//')

w=$(print "scale=2;$load / $users" | bc)

f=$(print "scale=0;$w * 5" | bc)

print "Users: $users, Load: $load Load/User: $w, Strain factor: $f"