#!/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=0 
for a in ${main[*]} ; do
  if [[ "$a" == "average:" ]] ; then
    c=$((c+1))
    load=${main[$c]}
    c=$((c-1))
  fi
  c=$((c+1))
done

load2=$( print $load | tr -d '.,' )

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

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

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